Para Manaus. Boa Vista, Porto Vslho. Rio Branco, Santarém. Altamlra, Macapá, Rondônia (Via Aérsct): Cr$ 



RETA 


A CAIXA 


INVERS 


INTROI 

INTERP 


Ano II - N? 19 - 




































































PARA TK 2000 COLOR 


A Microsoft tem 120 programas em fifas e disquetes à sua disposição 
São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

_se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, ÀppleUe compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil: - 

"Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000-r 

~S. Paulo-SP). Você encontrará os melhores programas da sua vida J 

_i_ I _L_ _i_I_I_L_I I I K I * I l l I ^ 


ní 




5 

íf éf 

» V 

: / 

íji 

TSE 






















































C.I.V. 


_ O Computador inteligente 


Renato*. Silv» Oliveira 
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Novos sistemas 
para pecuária 


A Simicron, empresa dedicada ao 
desenvolvimento, de sistemas para di¬ 
versas aplicações, está lançando novos 
produtos para áreas específicas. 

O primeiro sistema do pacote, cha¬ 
mado de Transexport, destina-se aos 
micros da linha TRS-80, modelo I, e Co¬ 
bra 300/305. O preço de lançamento es¬ 
tá em torno de 150 ORTNs. 

O Simirural é um sistema específico 
para aplicações em pecuária leiteira e es¬ 
tá sendo apresentado em três versões. A 
chamada Versão A' está em torno de 
1023 ORTNs e vem acompanhada de 
impressora, equipamentos, além da 
consultoria na fase de implantação. A 
Versão B' é compatível com equipa¬ 
mentos de maior porte, e custa em tor¬ 
no de 2046 ORTNs. A Versão C' é de 
bastante utilidade em fazendas de médio 
e grande porte e custará 2700 ORTNs. 
A.L.A. 


Memória reduz arquivo de papel 


A Micromática Computadores e 
Sistemas Ltda. desenvolveu um "Banco 
de Informações" para ser operado em 
microcomputador das linhas Apple, 
Itautec, Cobra, Unitron e IBM/PC, de 8 
e 16 bits, chamado Memória. 

Com esse novo sistema pode-se 
consultar as informações desejadas no 
vídeo de microcomputador, em relató¬ 
rios específicos ou pela emissão de fi¬ 
chas completas. Pode-se enviar cartas 
personalizadas, em etiquetas de endere¬ 
çamento, para aquelas pessoas ou em¬ 
presas de seu interesse ou que atendam 
determinados pré-requisitos. 

As aplicações desse sistema são 
muito diversas para qualquer tipo de em¬ 
presa. Pode-se ter até 26 tipos de infor¬ 
mações sobre o cliente e acessá-los uti¬ 
lizando até nove chaves de informações. 
Além de informações pessoais de clien¬ 


tes, a empresa pode ter ainda outros ti¬ 
pos de banco de dados. Por exemplo: 
candidatos a emprego, fornecedores, 
compradores, etc. 

O Memória é um sistema de fácil 
operação que introduz grande produtivi¬ 
dade, total precisão nas informações e 
evita o arquivo e manipulação direta e 
constante de papéis, documentos e fi¬ 
chas. 

O preço do sistema modular é de 
250 ORTNs, sendo: 80 ORTNs o Memó¬ 
ria básica, com consulta à tela; 70 
ORTNs o uso de relatórios padroniza¬ 
dos, sendo que o conteúdo pode ser al¬ 
terado pelo usuário; 60 ORTNs a ficha 
completa (registra todas as informa¬ 
ções) e 40 ORTNs a Mala-Direta, que 
contém cartas com etiquetas de endere¬ 
çamento e conta com todos os recursos 
de uma carta personalizada. S.A.M. 


Novos produtos da Cibertron 


A Cibertron Software, empresa de 
São Paulo, está colocando no mercado 
cerca de 15 novos programas de jogos, 
voltados aos equipamentos compatíveis 
com a linha TK-82, TK-83 e TK-85. 

Os programas, segundo represen¬ 
tantes da empresa, "são gravados duas 
vezes, em condições diferentes e repre¬ 
sentativas em diversos gravadores cas¬ 
setes, de modo que seja impossível o 
não carregamento dos mesmos pêlos 


usuários. 

Alguns dos programas já disponí¬ 
veis no mercado são: Simulador de Vôo, 
Pimball, Corrida Milionária (com três ní¬ 
veis de dificuldades); Tourada (com ro¬ 
tinas de linguagem de máquina); entre 
outros. Na área de software aplicativo, a 
Ciberne está lançando, com nova emba¬ 
lagem, o TK-Word, um processador de 
textos totalmente em linguagem de má¬ 
quina. A.L.A. 


Terminal ponto de venda da Itautec 


Envolvendo 50 pessoas e investin¬ 
do cerca de US$ 5 milhões, a Itautec 
deu início ao seu projeto de desenvolvi¬ 
mento de equipamentos voltados à au¬ 
tomação comercial. 

A preocupação principal da empre¬ 
sa, ao inicar sua entrada no segmento 
de automação comercial, foi "criar con¬ 
dições para o fornecimento de um siste¬ 
ma completo de informações, que auto¬ 
matizasse todas as operações do comér¬ 
cio — desde a compra de mercadorias 
até a venda ao consumidor final, abran¬ 
gendo gestão de compras, de estoque, 
preços e vendas a crédito". 

Com este intuito, a Itautec decidiu 
desenvolver equipamentos não apenas 


para o processamento de retaguarda, 
mas também fornecerá assistência e su¬ 
porte técnico aos seus futuros usuários. 

O produto principal deste projeto é 
o terminal ponto de venda (TPV) que se¬ 
rá apresentado aos interessados em ju¬ 
nho, durante a realização do li Congres¬ 
so de Automação Comercial. O TPV, se¬ 
gundo representantes da empresa, per¬ 
mite sua utilização em várias aplicações. 
Ele pode funcionar como uma caixa re¬ 
gistradora eletrônica, ou migrar, funcio¬ 
nando em redes mais complexas, utili¬ 
zando para isto, outros equipamentos 
Itautec, como o micro 1-7000 PCxt — 
trabalhando como concentrador — e 
outros de maior porte (o supermini I- 
9000). A.L.A. 


Andei oferece 
bolsa de empregos 


A Andei — Associação Nacional 
dos Dirigentes e Executivos de Informá¬ 
tica, que congrega, desde sua forma¬ 
ção, os dirigentes da área de informática 
e mais recentemente, os executivos ana¬ 
listas de sistemas em geral, está ofere¬ 
cendo um novo serviço aos profissionais 
da área: a Bolsa de Empregos. 

Com o objetivo de defender os inte¬ 
resses técnicos e profissionais dos diri¬ 
gentes, executivos e analistas da área de 
informática, a Andei realiza a comunica¬ 
ção com as empresas especializadas em 
recrutamento e seleção, bem como a 
área de recursos humanos das diferen¬ 
tes empresas industriais e comerciais e 
verifica as oportunidades profissionais 
disponíveis no mercado. 

Sob a direção de Dalton Gobato, a 
Bolsa de Empregos — Andei tem obtido 
grande receptividade no mercado e ofe¬ 
rece seus serviços aos profissionais da 
área, mesmo aos que não têm nenhum 
vínculo com a entidade, mas desejam 
ser cadastrados na mesma. 

Para isso, os interessados devem 
entrar em contato com a Andei, em sua 
sede, à rua Capitão Antonio Rosa, 376, 
conjunto 102, ou pelo telefone 280.0401, 
com a Bárbara. S.A.M. 
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Cincon Systems 
desenvolve novas 
características 
para o Mantis 


Para atender às novas exigências 
do acelerado mercado de informática, a 
Cincon Systems desenvolveu novas ca¬ 
racterísticas para o Mantis, sistema ope¬ 
racional de 4° geração para IBM, e lan¬ 
çou o 4.0, que será liberado entre abril e 
maio de 1985 no mercado brasileiro. Es¬ 
se trabalho é resultado de uma pesqui¬ 
sa onde todos os usuários do Mantis 
opinaram pelas modificações que deram 
origem às características da versão 4.0 e 
foram consolidadas mundialmente. 

O Mantis é um sistema para desen¬ 
volvimento de aplicações on-line, com¬ 
pletamente interativo, usado por mais 
de 1500 empresas em todo o mundo, 
desde sua introdução em 1981. Aplica¬ 
ções completas podem ser implantadas 
com um simples desenvolvimento com o 
Mantis, sem a necessidade de proces¬ 
samento "batch" (por lotes). Os progra¬ 
madores podem criar telas e arquivos, 
escrever programas, testar e depurar 
aplicações para produção. 

Usando tecnologia de 4? geração, 
que combina a flexibilidade de lingua¬ 
gens procedurais (do tipo do COBOL), 
com a eficiência de uma linguagem livre 
de compilação (como o BASIC), o Man¬ 
tis torna os usuários capazes de implan¬ 
tar análise "Top-Down", codificação es¬ 
truturada, refinamento passo a passo e 
prototipação de sistemas. 


Característica externa "Do" 

Entre as melhorias inclusas na ver¬ 
são 4.0 está o ''Do Externai", uma ca¬ 
racterística que permite o uso comum de 
sub-rotinas e reduz o tamanho do pro¬ 
grama em aproximadamente 60%, além 
de melhorar a eficiência de execução e a 
manutenção. 

Esta característica permite ao usuá¬ 
rio transferir a execução do programa de 
um procedimento Mantis para outro 
com retorno. Um programador pode es¬ 
tabelecer programas compartilhados por 
outros usuários com a externa "Do", 
dando a eles acesso às rotinas internas e 
externas. Por exemplo, um usuário po¬ 
de tirar as rotinas de cálculo do sistema 
e fazer um programa à parte chamado 
Rot-Ca/c, que pode ser chamado toda 
vez que necessário. 


Aumento das variáveis 
de programa 

Outra característica da versão 4.0 é 
a quadruplicação do número de variá¬ 
veis de programas, permitindo ao usuá¬ 
rio do Mantis acessar mais dados de 
uma só vez. O número máximo de no¬ 
vas variáveis de um programa único foi 
aumentado para 2048 — sendo que o 
número máximo anterior era 255. Isso 
fornece ao usuário a flexibilidade de criar 
programas maiores e mais complexos, 
sem ter que quebrá-los em duas ou mais 
partes. 


Mantis Batch 

Esta característica permite aos 
usuários criarem e executarem aplica¬ 
ções Mantis on-line na modalidade 
"batch", eliminando a necessidade de 
se escrever numa segunda linguagem e 
o uso desnecessário de recursos on-line 
valiosos para processar aplicações em 
lotes. 

O Mantis Batch pode ser usado pa¬ 
ra aplicações de grande volume, opera¬ 
ções não atendidas, simulação, testes e 
documentação do usuário-final, ou 
quaisquer necessidades de acesso off-li- 
ne. A proporção de facilidade da lingua¬ 
gem Mantis em relação à Cobol é de 
10/4. 


Facilidade "Transfer" 

Um programador usava um utilitá¬ 
rio, em Batch, para transferir, através de 
fita, um programa de teste para produ¬ 
ção. Isso era feito à noite quando nin¬ 
guém mais estava usando os serviços. 
Mas se um usuário pedisse uma altera¬ 
ção nos dados, esta tinha que ser feita 
no teste, o que levava muito tempo. 

A característica "Transfer", funcio¬ 
nalmente substitui as facilidades exis¬ 
tentes do processamento por lotes tra¬ 
dicionais "import" e "export", permi¬ 
tindo aos usuários, nos mesmos siste¬ 
mas ou em sistemas diferentes, compar¬ 
tilhar entidades Mantis (programas, ar¬ 
quivos, telas, etc.). 


Característica "Interface" 

O Mantis trabalha com "pontos flu¬ 
tuantes", o que torna o trabalho com os 


algarismos numéricos muito mais velo¬ 
zes. Esta característica fornece as me¬ 
lhorias que permitem conversão auto¬ 
mática de dados no comando "Call". O 
Mantis executará a conversão de dados 
antes que estes cheguem a um progra¬ 
ma automaticamente. 

A Cincon Systems, fornecedora in¬ 
dependente de software para Banco de 
Dados/Comunicação de Dados e aplica¬ 
tivos, já possui 70 clientes no Brasil e 85 
instalações do Mantis, sendo que 15 ain¬ 
da estão em fase de instalação e fecha¬ 
mento de contrato. 

As adaptações da versão 4.0 come¬ 
çarão a ser feitas a partir de abril pró¬ 
ximo e seu custo já está incluso na taxa 
de manutenção. 

Para novembro ou dezembro de 
1985 estão previstos os lançamentos das 
versões 4.2 e 4.5, que serão detalhados 
oportunamente. S.A.M. 


Ciberne e bolsas 
de estudo para 
programadores 


A Ciberne Software do Rio de Ja¬ 
neiro, está desenvolvendo um projeto 
que visa à formação de profissionais na 
área de softwares voltados ao lazer. O 
primeiro passo para a consolidação do 
projeto será o 'curso de projeto e desen¬ 
volvimento de jogos para micros', com 
bolsas de estudos, em regime de tempo 
integral, para programadores interes¬ 
sados. 

No total são dez bolsas, fornecidas 
a programadores maiores de 16 anos e 
com conhecimentos de equipamentos 
com microprocessador Z-80. O curso se¬ 
rá iniciado em abril e terá a duração de 
50 horas, objetivando, segundo Anto- 
nio Manuel da Silva, diretor de mar¬ 
keting da empresa, "a formação de 
mão-de-obra especializada e o estímulo 
do mercado de trabalho dentro da área 
de jogos, que até o momento tem sido 
vista apenas como hobby". 

Os interessados serão selecionados 
através de entrevista e receberão todo o 
material didático, gratuitamente, desen¬ 
volvido pela empresa. 

Antonio Manuel ressaltou que os 
bolsistas não irão aprender a programar, 
mas sim a fazer jogos. A.L.A. 
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ANDEI e 

novos associados 


A Associação Nacional dos Diri¬ 
gentes e Executivos de Informática — 
ANDEI, passou a considerar os Analis¬ 
tas de Sistemas como "dirigentes e exe¬ 
cutivos" de informática, a partir da As¬ 
sembléia Geral realizada em janeiro. 
Com a decisão da Assembléia, os pro¬ 
fissionais dessa categoria poderão ser 
admitidos no quadro associativo da en¬ 
tidade através do pagamento de contri¬ 
buição menor que o efetuado por um 
empresário de informática. 

Segundo representantes da ANDEI, 
a agremiação dos Analistas de Sistemas 
na instituição "reforça a representativi- 
dade da entidade na defesa dos interes¬ 
ses técnicos e profissionais da catego¬ 
ria, fortalecendo a luta pela regulamen¬ 
tação da profissão, para os profissionais 
que compõem 'a inteligência' do setor e 
na obtenção de condições adequadas de 
trabalho". A.L.A. 


FEI com cursos 
de pós-graduação 


A Faculdade de Engenharia Indus¬ 
trial, em São Bernardo do Campo, São 
Paulo, inaugurou o seu curso de mes¬ 
trado em Engenharia Elétrica, com sub- 
áreas de sistemas digitais e de automa¬ 
ção e controle voltada a profissionais 
graduados em áreas correlatas. 

Segundo representantes da insti¬ 
tuição, os principais objetivos do mes¬ 
trado e doutorado da FEI são propor¬ 
cionar aos profissionais a ampliação do 
conhecimento científico e tecnológico e 
a obtenção de títulos acadêmicos ao ní¬ 
vel de pós-graduação, entrosando a es¬ 
cola com a indústria, através de estudos 
e pesquisas de soluções de problemas 
reais existentes nas indústrias nacionais 
utilizando para isto, o desenvolvimento 
de dissertações e teses. 

Segundo o professor Alessandro La 
Neve, coordenador geral, a pós-gradua¬ 
ção da FEI tem duração máxima de qua¬ 
tro anos — sendo dois para a conclusão 
dos créditos (num total de 30 créditos) e 
dois para o desenvolvimento da disser¬ 
tação — e a faculdade abrirá semestral¬ 
mente, 15 vagas. 

As linhas de pesquisas da pós-gra¬ 
duação estão centradas nas seguintes 
áreas: sistemas digitais, arquitetura de 
computadores, microprocessadores, 
sistema de comando de tempo real, sín¬ 
tese de redes ativas, eletrônica de 
potência, linguagens e sistemas de pro¬ 
gramação de computadores, entre ou¬ 
tras. A.L.A. 


Aprovado projeto do 
supermini/Novadata 


Mais um projeto de superminicom- 
putador foi aprovado pela SEI — Secre¬ 
taria Especial de Informática. Desta vez 
a agraciada foi a Novadata — Sistemas 
e Computadores, com o projeto do su- 
permini ND-286 de 16 Megabytes e mi¬ 
croprocessador 8086 da Intel, compa¬ 
tível com outros equipamentos da em¬ 
presa. 

Um dos destaques do projeto apre¬ 


sentado pela empresa é que o softwa¬ 
re desenvolvido permite redes abertas 
de teleinformática, e o usuário dos minis 
ND-86, fabricados pela Novadata, têm a 
possibilidade de migrarem para o ND- 
286. 

O ND-286 utiliza linguagens BASIC, 
Cobol, Assembler entre outras e permi¬ 
te microprocessamento múltiplo. A.L.A. 


CALENDÁRIO 


v. 


11/3 a 12/7 — Formação de 
programadores — SENAC — São 
Paulo — Informações: (011) 255. 
0066. 

10 a 12/4 — O CPD em tempo 
de crise — como reduzir custos de 
sistemas de informação — Semi¬ 
nário/Servimec — São Paulo — 
Informações: (011)222.1511. 

11/4 — Arquitetura de com¬ 
putadores — FDTE/IPT — São 
Paulo — Informações: (011) 815. 
9322. 

15 a 16/4 — Redes Locais ou 
PBX — Seminário 3i Informática 

— São Paulo — Informações: 
(011)521.9509/247.2528. 

16 a 19/4 — Análise estrutura¬ 
da de sistemas — Seminário/Ser- 
vimec — São Paulo — Informa¬ 
ções: (acima). 

22 a 23/4 — Metodologia pa¬ 
ra testes e depuração de sistemas 

— Idem acima. 

21 a 26/4 — IV Feira Nacional 
de Informática/VII — Congresso 
Regional de Informática — SUCE- 
SU/DF - Brasília, DF. 

22 a 24/4 — Wordstar — Pro¬ 
cessador de Textos — Instituto 
ORT de Tecnologia — Rio de Ja¬ 
neiro — Informações: (021) 286. 
7842. 

22 a 26/4 — Inspeção de equi¬ 
pamentos elétricos e Marketing de 
vendas de bens industriais — 
IECAT/Fundação de Ciências Apli¬ 
cadas/FEI — São Paulo — Infor¬ 
mações: (011)278.6853. 

23/4 — "Lógica Computacio¬ 
nal I" - FDTE/IPT - Idem. 

25/4 — Circuitos Eletrônicos 

— Idem acima. 

25/4 a 7/5 — Banco de Da¬ 
dos: dBase II — Instituto ORT — 
Rio de Janeiro — Informações: 


(Acima). 

24 a 26/4 — Projeto concei¬ 
tuai de Banco de Dados — Com- 
pucenter — São Paulo — Informa¬ 
ções: (011)255.5988. 

27/4 — BASIC em microcom¬ 
putadores — ADP Systems — São 
Paulo. 

29/4 — Engenharia de Progra¬ 
mação — Núcleo de Ensino de In¬ 
formática e Computação — Rio de 
Janeiro — Informações: (021)220. 
1989. 

30/4 — Eletrônica Digital I — 
Núcleo de Ensino de Informática e 
Computação — Acima. 

30/4 — Projeto de Manuten¬ 
ção de Hardware — Idem acima. 

29/4 a 19/6 — Programação 
de Computadores IBM/COBOL 
IBM/DOS-VSE - ADP Systems 

— São Paulo — Informações: 
(011)227.4433. 

6 a 23/5 — Microprocessado¬ 
res — IECAT/Fundação Ciências 
Aplicadas/FEI — Sãò Paulo — In¬ 
formações: (Acima). 

6 a 8/5— Redes Locais de 
Computadores — Compucenter — 
São Paulo — Informações: (Aci¬ 
ma). 

8 a 10/5 — Análise Estrutura¬ 
da das necessidades dos usuários 

— Seminário/Compucenter — 
São Paulo — Informações: (Aci¬ 
ma). 

13 a 23/5 - BASIC - Um en¬ 
foque prático — Instituto ORT de 
Tecnologia — São Paulo — Infor¬ 
mações: (Acima). 

16 a 17/5 — Robótica — Au¬ 
tomação — Controle de Processos 
(CAD/CAM) — Associação Brasi¬ 
leira de Administração e Conserva¬ 
ção de Energia — São Paulo — In¬ 
formações: (011)285.2490. 
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EDITORIAL 


Um micro computador na sala de aula? 

Este fato não causaria estranheza se es¬ 
tivéssemos falando de uma sala dè aula nor¬ 
mal, com vãrios recursos áudio-visuais e um 
professor com um treinamento adequado — 
e o mais importante — um salário adequado. 

Imagine agora se se desejasse introduzir 
um microcomputador numa sala de aula on¬ 
de o único recurso disponível é um quadro 
negro e giz (nem sempre em abundância) e o 
professor inadequadamente preparado e re¬ 
munerado? 

O que ocorreria com um microcomputa¬ 
dor nesta sala de aula? Certamente seria es¬ 
quecido e abandonado após alguns meses. 

Quando se pensa em introduzir a Infor¬ 
mática no ensino, devemos estar atentos para 
algumas coisas fundamentais, se não quiser¬ 
mos fracassar. 

Em primeiro lugar, o micro não é um 
santo milagroso. Ele precisa ser programado 
de forma adequada — um trabalho conjun¬ 
to de programadores e educadores — para 
surtir o efeito desejado. 

Um microcomputador não torna obsole¬ 
tos outros recursos audio visuais; quer sejam 
simples, como o velho quadro negro, quer 
mais complexos, como o cinema e o video¬ 
cassete. Cada recurso deve ser encarado cor¬ 
retamente para poder-se tirar o máximo pro¬ 
veito dele. 

As aulas de laboratório com experiên¬ 
cias nunca serão adequadamente substituí¬ 
das por uma simulação, por mais perfeita 


que ela seja. O máximo que o computador 
pode fazer, neste caso, ê deixar pontos obs¬ 
curos mais claros. 

O professor ainda é uma figura indis¬ 
pensável. Sua presença torna o aprendizado 
mais fácil (métodos de auto-aprendizado nos 
moldes skinnerianos dão resultados apenas 
para o aprendizado básico e dificilmente de¬ 
senvolvem a criatividade) e representam uma 
interface eficiente entre o aluno e o conheci¬ 
mento a ser transmitido. 

E então, devemos ou não introduzir o 
micro nas escolas? 

Se educar é preparar para o futuro, o 
microcomputador deve entrar na escola, pois 
o conhecimento de sua utilização será pri¬ 
mordial dentro de alguns anos. 

Por outro lado, não devemos nos esque¬ 
cer de que existem outras prioridades a se¬ 
rem atendidas e que não devem ser negli¬ 
genciadas. 

E, por último, isso deve ser feito de uma 
forma seria, precedido por um estudo experi¬ 
mental, voltado para a realidade brasileira 
— e sem nos esquecermos do professor. 
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TK 2000 x Apple 

Foi com grande satisfação que vi 
resolvido o problema da função IN- 
KEY$ (revista n? 15 de Microhobby). 
Muito obrigada mesmo pela ajuda. 

Agora eu gostaria de saber a sub- 
rotina em Assembly que tem o mesmo 
efeito do GR do BASIC do TK 2000 (no 
Apple:SFB40; isto pode ser feito em um 
programa em linguagem de máquina por 
JSR SFB40). 

Fawzy Mikhail Abdel Sayed 
Volta Redonda — RJ 

Prezada Fawzy, 

Agradecemos ^ elogio que nos faz 
e informamqs que a rotina que gera GR 
no TK 2000 está no mesmo endereço 
que no Apple. 

Periféricos para o TK 85 

a) Pode-se usar disquetes no TK 
85? 

b) Pode-se usar, ao mesmo tempo, 
impressora e expansão de memória? 

c) Já existe alguma modificação ou 
expansão que deixe o TK 85 com alta 
resolução e cores? 

d) Qual a linguagem usada no MC 
1000 ? 

e) Pode ser usado um MODEM no 
TK 85? 

f) O TK 85 pode ser ligado ao ser¬ 
viço de vídeo-texto? 

Guilherme Ginini 
São Paulo — SP 

Caro Guilherme, 

No momento ainda não existe uma 
interface nacional que habilite o TK 85 
para trabalhar com disquete. Entretanto, 
no exterior este tipo de adaptação já 
existe para computadores compatíveis 
com o TK 85. 

A impressora e a expansão podem 
ser ligadas simultaneamente , sem pro 
hlemas. 


Ê possível adaptar-se cor e alta re 
solução no TK 85. Procure técnicos ca 
pacitados, que o conheçam muito bem, 
para realizar estas modificações. O MC 
1000 utiliza, tal qual a maioria dos mi 
crocomputadores, como linguagem 
padrão o BASIC. 

O TK 85 pode ser ligado a um mo 
dem especial. Temos o conhecimento 
de uma empresa que o fabrica, confor 
me publicamos no Micropress da revis 
ta 17. Seu endereço é Rua Napo/eão de 
Barros, 593, São Paulo — SP. 

PEEK (—16336) no TK 2000 

Possuo um TK 2000 e estava ten¬ 
tando adaptar um programa do Apple 
para ele e me deparei com um PEEK 
(— 16336). O que significa este ende¬ 
reço, qual a função e qual o equivalente 
no TK2000? 

Aproveito a oportunidade e peço 
para publicarem mais programas e jogos 
animados e adaptações do Apple para 
o TK 2000. 

Silvio Maciel Essinger 
Rio de Janeiro — RJ 

Caro Sílvio, 

Este comando gera um som no au 
to falante e é igual no TK 2000. Todavia, 
o comando Sound, presente apenas no 
TK 2000, faz a mesma função, de uma 
forma muito melhor. 

Quanto aos jogos e programas, eles 
aparecerão normalmente na revista. 

O TK DOS e o Apple 

Por meio desta aproveito para con¬ 
gratulá-los pela excelente revista Micro¬ 
hobby, a qual tem-me ajudado bastante 
a nível de material didático. 

Foi graças a revistas conceituadas 
como a de vocês que aprendi a progra¬ 
mar BASIC e a ter noções sobre lingua¬ 
gem de máquina. 

Sou programador no setor de sis¬ 
temas e comunicações no Banco Eco¬ 
nômico S/A há aproximadamente nove 
meses, eu adquiri um TK 2000 e tive al¬ 


guns problemas, visto que ele não pòs- 
suia nenhum comando para a gravação 
de dados alfa-numéricos e também ne¬ 
nhum comando BASIC que pudesse ler 
o teclado. 

Quando fiquei sabendo que a Mi- 
cromega iria, através de sua publicação 
mensal Microhobby, criar uma seção 
especialmente dedicada ao TK 2000, fi¬ 
quei muito contente, o que fez essa re¬ 
vista crescer no meu conceito. 

No número 13 (e posteriormente no 
número 15), vocês colocaram uma das 
coisas que eu tanto procurava, que era o 
INKEYS. 

Mas, mesmo assim, possuo dúvi¬ 
das sobre o TK 2000. Por exemplo: 

Quero adquirir um drive e um DOS 
3.3, que, se não me engano, é o DOS do 
TK. Esse DOS teria, por acaso, coman¬ 
dos como: CHAIN, OPEN, CLOSE, 
MERGE, INKEYS, RENUMBER, 
FLASH, que constam no DOS do Ap¬ 
ple? 

Outro problema é a falta de um edi¬ 
tor de linhas. Existe algum disponível no 
mercado? 

Para finalizar, com o DOS 3.3, o TK 
ficaria um micro poderoso? 

Carlos A. P. Gomes 
São Paulo — SP 


Prezado Carlos, 


Agradecemos, inicialmente, os elo 
gios que nos faz. 

Quanto ao TK 2000, acreditamos 
ser ele uma excelente máquina, apesar 
das pequenas limitações que você apon 
ta, perfeitamente contornáveis. Uma de 
las, o INKEYS, como você mesmo men 
cionou, já foi resolvida e divulgada em 
duas outras oportunidades (revistas 13 e 
15). Quanto ao problema do TK 2000 
não gravar de forma direta dados alfa 
numéricos, tensionamos publicar um ar 
tigo completo a respeito brevemente. 

O TK 2000, com a devida interface, 
pode admitir uma unidade de disco e 
com isso se torna um micro muito mais 
poderoso. O seu sistema operacional, o 
TKDOS, é muito semelhante ao DOS 
3.3 e apresenta a maioria de seus co¬ 
mandos, oferecendo também um uti/i 
tário editor de Unhas e o software de im 
pressora já incorporado. 

Entre os softwares disponíveis em 
disquete está o Mu/ticalc, cuja análise 
foi feita na revista 16. Ele roda perfei 
tamente no TK 2000 de primeira gera 
ção, deixando disponíveis 20 k para da 
dos. Expandindo se internamente sua 
memória para 128 k (para isso consulte a 
assistência técnica da MicrodigitaU, é 
possível aproveitar toda a potenciali 
dade deste aplicativo. Aguarde para 
breve mais novidades sobre o uso de 
disquetes no TK 2000 que surgirão no 
mercado de software e artigos que con 
tinuaremos a publicar na Microhobby. 

Quanto ao editor de Unhas, além 
dele estar presente no TKDOS, ele está 
disponível também em fita, produzido 
pela Microsoft. 
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Jânas Marino M. Veiga 
Caixa Postal 315 
89600 — Joçoaba — SC 

Avenilo de Oliveira 
Rua C, 11 

06730 — Vargem Grande Paulis — SP 
Àrea de Interesse: Educação 
Obs.: é professor de primeiro e segundo 
grau. 

Marcelo Nogueira Magalhães 
Rua Castro Meireles, 290 
60000 — Fortaleza — CE 

Marcos Dias Alves 
Rua Espanha, 659 
09000 — Santo André — SP 

André Zielsko 

Caixa Postal 77 

95590 — Tramandaí — RS 

Eduardo Lemos Wojciuk 
Rua Machado, 79 
07000 — Guarulhos — SP 

Mauro Fraga 

Rua Lizandro Nogueira, 1.466 — Cj. 01 
64000 — Teresina — Piauí 



Luiz Fernando Ramos 
Rua Oswaldo Cruz, 17/1.002 
Tel.: (021)711-4360 
24230 — Niterói — RJ 

Walkir de Oliveira Ribeiro 

Rua Tenente Cesar, BI. 2/202 — BASIC 

23500 — Rio de Janeiro — RJ 

Cleber Conte 

Rua Barão do Bananal, 975 — Cj. 5 
05024 - São Paulo - SP 
Tel.: 872-2034 

Área de Interesse: Linguagem de Má¬ 
quina 6502 

Guilherme João Müller 
Rua Canadá, 213 
Caixa Postal 4163 
80000 — Curitiba — PR 

Fábio Henrique Bei 
Rua Groelândia, 1.187 
01434-São Paulo-SP 

Afrânio Machado B. Ramos 
Caixa Postal 422 
19900 — Ourinhos — SP 
Área de Interesse: Jogos 

Jorge PabloZapata Rivera 
Alameda das Caiazeiras, 43 
40000 — Salvador — BA 

Edvalton de Almeida Rocha 
Rua Nazaré de Odylo, 377 
65000 - São Luiz - MA 
Tel.: (098) 222-7351 


Paulo Rogério da Silva 
Rua José Geniolli, 418 
05842 - São Paulo - SP 

Obs.: O Sr. Paulo Rogério possui tam¬ 
bém um TK82-C e se propõe a converter 
programas de uma máquina para outra a 
quem se interessar. Também se propõe 
a "debugar" programas a quem lhe es¬ 
crever, enviando o programa para aná¬ 
lise. 


Para ter seu nome cadastrado no Clube de 
Usuários, escreva uma carta contendo: no 
me, endereço, tipo de equipamento e área de 
interesse. Envie nos também sugestões. 



CURSO DE BASIC 

Tks, CP-200, Ringo 


Estoque 

• ABCD 

Bazooca 

• Defensor 

G. P. Brasil 

• King Kong 

Matemática 

• Inglês 

Futebol 

• Lab. Chinês 

Caverna 

• Drácula 

Combate 

• Micropac 

Inglês II 

• Enterprise 

CP 500, CP-300 e Sysdata 


• Controle de Estoque • Jedi 
• Piloto • Ataque • Futebol 
• Exorcet • Contr. de Crediário 


Adquira seu software através de 
revendedor ou pela caixa postal. 


MICRO BOARD 

Caixa Postal 18968 
São Paulo - SP - 04699 
Fone: (011)532-0923 



PROTEJA 

o seu 

rSCROCOnPUTFIDOR 


COM FILTRO DE 
LINHA 



ruído elétrico 
COnira INTERFERÊNCIA: 

RADIO FREQUÊNCIA (RF) 


O/U# v/\U 


contra picos DE voljagem 


TRANSIENTES DE TENSÃO 




POTÊNCIA ATINGE ATÉ 1,5 KVA 

ZENTRANX 

Av Vitor Manzini, 410 - Santo Amaro São Paulo 
^ CEP 04745 TELS : (011) 522 2159 e 548 0651 J 
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Curso de Programação para HP-41 

AULA V-DECISÕES 

José Eduardo Moreira 
Wilson José Tucci 


Há dois tipos básicos de decisão em computação: um 
deles é: "se determinada condição for verdadeira, então 
faça algum comando" (figura la); outro é: "se determina¬ 
da condição for verdadeira, então faça comando 1, senão 
faça comando 2" (figura 1b). 


Exemplo: Faça um programa para colocar três núme¬ 
ros em ordem crescente. Vamos usar o seguinte método: 
sejam os números armazenados nas variáveis A, B e C, 
nesta ordem. Comparando A com B, se o conteúdo de A 
for maior, trocamos A com B. Trocamos B com C, se com¬ 
parados os conteúdos, B for maior que C. No fim dessas 
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Introdução 


Como exemplo faça um programa que, dados dois 
números inteiros M e N, verifique se N é divisor de M. 

Para saber se N é divisor de M, basta ver se o resto da 
divisão de M por N é 0. MOD é a operação que calcula o 
resto da divisão na HP-41 (figura 5). 


Tradução 

variável — registrador 

M - 00 

N - 01 

AUX - 02 



Fig.5 


01♦LBL "DIVISOR" 


15 GTO 00 

02 FIX 9 


16 PRCL 01 

03 -KtH ?■ 


17 "h NPO DIVIDE " 

04 PROHPT 


18 «RCL 80 

05 CLP 


19 PROHPT 

06 STO 01 


28 GTO 01 

0? RDN 


21♦LBL 00 

00 STO 00 


22 PRCL 00 

09 RCL 00 


23 “P DIVISÍVEL POR- 

10 RCL 01 


24 "P “ 

11 MOD 


25 «RCL 01 

12 STO 02 


26 PROHPT 

13 RCL 02 


27^LBL 01 

14 X-0? 


28 END 


Laços 

Um conceito fundamental de programação é o laço. 
Um laço é uma seqüência de operações executada um cer¬ 
to número de vezes até que se chegue ao resultado dese¬ 
jado. 

Um laço é formado basicamente de comparações e 
desvios. São dois os tipos principais de laços: 

a) comparação no início (figura 6) 

b) comparação no final (figura 7) 

Exemplo: faça um programa para calcular nl, onde n! = 
nx(n — 1) x (n — 2) ... 1. 

8! = 8*7*6*5M*3*2*1 = 40320; (figura 8). 

Exemplo: faça um programa para que dado um número in¬ 
teiro n, a calculadora mostre os n primeiros números im¬ 
pares (figura 9). 



V 


«comando» 




«continuação» 

T 


LBL * 1 

«comparação invertida» 
GTO *2 
«comando» 

GTO *1 
LBL *2 

«continuação» 

Fig.6 


0 «comando» é executado enquanto a comparação resultar 
em verdadeiro. 



«comando» 

LBL *1 

«comando» 

F 

■ ^comparacãoi^ 

T v 

«continuação» 

«comparação invertida» 

GTO *1 

«continuação» Fjg 7 

0 «comando» é executado até que a condição resulte em 
verdadeiro. 



F 


Tradução 

variável — registrador 
N - 00 

FAT - 01 


01*LBL -FfiT‘ 

82 

•N ?• 

93 

PROHPT 

04 

STO 00 

05 

1 

06 

STO 01 

07+LBL 60 

08 

RCL 88 

89 

X<=6? 

10 

GTO 81 

11 

RCL 80 

12 

ST* 81 

13 

1 

14 

ST- 88 

15 

GTO 80 

16*LBL 81 

17 

*FfiT= ■ 

18 

«RCL 81 

19 

PROHPT 

20 

END 
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Tradução 

variável — registrador 
N - 00 

P - 01 

CONT - 02 



0UL6L "IHPfiR' 
02 "N=?‘ 

03 PROHPT 

84 STQ 00 

85 ! 

86 STC 8Í 

67 0 

68 STO 02 
09»L8L 80 


10 

RCL 

01 

11 

VI EH X 

12 

PSE 


13 

RCL 

81 

14 

2 


15 

+ 


16 

STO 

81 

17 

RCL 

02 

18 

1 



19 

+ 

20 

STO 02 

21 

RCL 82 

22 

RCL 06 

23 

x>y? 

24 

GTO 08 

25 

-FIM" 

26 

PROHPT 

27 

ENB 


Fig. 9 


Exercícios 

1. Faça um programa (fluxograma e codificação) para cal¬ 
cular x (x qualquer e n inteiro). Use laço. 

2. Dados dois números inteiros positivos, i e j, imprimir, 
em ordem crescente, os n primeiros múltiplos de i ou j, ou 
de ambos. 

Respostas aos exercícios da aula IV: 

1. variável — registrador 

A - 00 

B - 01 

X - 02 


01+LBL -RftIZ- 

02 

*fi ?• 

63 

PROHPT 

84 

STO 08 

05 

"B ?■ 

86 

PROHPT 


2 . 


variável 

N 

FAT 


81+LBL 

•FRT* 

02 *N ‘ 

?" 

03 PROHPT 

04 STO 

00 

05 1 


86 STO 

01 

07+LBL 

60 

08 1 


89 RCL 

00 


3. 


variável 

A 

B 

C 

RI 

R2 


81*161 "RSÍZ2- 
82 ?’ 

83 PROHPT 

84 STO 98 

85 "B ?" 

86 PROHPT 

87 STO 01 

88 a C 

09 PROHPT 

10 STO 92 

11 RCL BI 

12 Xt2 

13 4 

14 PCI 86 

15 * 

16 RCL 82 
1 ? * 

18 - 

19 STO 03 


07 

STO 

81 

@8 

RCL 

01 

09 

RCL 

80 

10 

/ 


11 

CHS 



registrador 

00 

01 


— registrador 

00 

01 

02 

03 

04 

- 05 


12 

STO 02 

13 

*Rft!Z= ■ 

14 

fiRCL 62 

15 

PROHPT 

16 

ENB 


CD 

>C 

II 

f? 

11 

GTO 

01 

12 

RCL 

01 

13 

RCL 

09 

14 

* 


15 

STO 

01 

16 

RCL 

80 

17 

1 



18 

_ 

19 

STO 0@ 

20 

GTO 80 

21+LBL 81 

22 

•FAT= ’ 

23 

fiRCL 01 

24 

PROHPT 

25 

ENB 


29 RCL 03 


38 - 

21 0 


39 RCL 08 

22 X>Y? 


48 2 

23 GTO 08 


41 * 

24 RCL 01 


42 / 

25 CHS 


43 STO 95 

26 RCL 83 


44 *R1= “ 

27 SQPT 


45 fiRCL 04 

28 + 


46 PROHPT 

29 RCL 08 


47 “R2= ' 

38 2 


48 fiRCL 05 

3! * 


49 PROHPT 

32 / 


58 GTO 81 

33 STO @4 


5!*LBL 80 

34 RCL 81 


52 “SEM RSIZES’ 

35 CHS 


53 PROHPT 

36 RCL 03 


54+LBL 01 

37 SORT 


55 ENB 


14 MICROHOBBY 























































ERRATA: 


Análise de Fourier 
para HP 41 


Em virtude de problemas de im¬ 
pressão, reproduzimos aqui a listagem 
completa do programa "Análise de 
Fourier", publicado na seção Calcula¬ 
doras da revista 17, página 30. 


01 

♦LEI ■FOURIER' 

44 

RCL 

01 

02 

CLfi 

45 

/ 


83 

•FUNCHO 7* 

46 

*B* 


04 

fiON 

47 

FIX 

8 

65 

PROHPT 

48 

«RCL 

. 88 

86 

flSTO 86 

49 

FIX 

4 

07 

fiOFF 

58 

■(-=* 


08 

■L ?* 

5! 

«PCI 

X 

8? 

PROHPT 

52 

PROHPT 

16 

STO 8! 

53 

i 


n 

«H ?• 

54 

ST+ 

88 

12 

PROHPT 

55 

GTO 

80 

13 

STO 88 

56*LBL 

“COSSIHP* 

14 

■d ? m 

57 

8 


15 

PROHPT 

58 

STO 

84 

16 

STO 82 

59 

RCL 

81 

1? 

6 

68 

t-x 

L 


18 

STO 88 

61 

* 


19 

XEQ -COSSIHP* 

62 

RCL 

82 

28 

RCL 81 

63 

/ 


21 

/ 

64 

STO 

83 

22 

■p8=“ 

65 

RCL 

81 

23 

«RCL X 

66 

CHS 


24 

PROHPT 

67 

XEQ 

IND 86 

25 

1 

68 

RCL 

83 

26 

STO 88 

69 

PI 


2?*LBL 88 

70 

# 


28 

RCL 08 

71 

COS 


29 

RCL 88 

72 

* 


38 

- 

73 

ST+ 

84 

31 

X>0? 

74 

RCL 

81 

32 

GTO 81 

75 

CHS 


33 

XEQ "COSSIHP" 

76 

RCL 

83 

34 

RCL 81 

77 

+ 


35 

/ 

78 

XEQ 

IHD 86 

36 


79 

RCL 

88 

3? 

fix e 

30 

PI 


33 

PRCL 88 

31 

* 


39 

FIX 4 

82 

RCL 

81 

48 

•(-=• 

33 

/ 


41 

«RCL X 

84 

RCL 

81 

42 

PROHPT 

35 

CHS 


43 

XEQ "SENSIHP" 

86 

RCL 

83 


8? + 

lii * 

88 * 

147 RCL 08 

89 COS 

148 ♦ 

90 * 

149 RCL 01 

91 4 

158 •' 

92 * 

151 COS 

93 ST+ 94 

152 * 

94 RCL 81 

153 ST+ 84 

95 XEQ IND 06 

154 2 

96 RCL 98 

155 ST+ 85 

97 PI 

156 GTO 82 

98 * 

157+LEL 83 

99 COS 

158 RCL 83 

188 '* 

159 3 

181 ST+ 84 

168 / 

102 2 

161 RCL 84 

Í03 STO 85 

162 '* 

104+LBL 82 

163 STO 87 

185 RCL 85 


186 RCL 82 

164 RTH 

107 - 

J65*L8L "SENSIHP' 

!@8 2 

166 RCL 81 

109 ♦ 

167 2 

Ü0 X>8? 

168 * 

111 GTO 83 

169 RCL 82 

112 RCL 81 

178 / 

113 CHS 

171 STO 83 

114 RCL 85 

172 8 

115 RCL 83 

173 STO 84 

116 * 

174 RCL 01 

117 + 

175 CHS 

118 STO 18 

176 RCL 83 

118 XEQ IHD 86 

177 + 

128 2 

178 XEQ IHD 86 

121 * 

179 4 

122 RCL 18 

188 * 

123 PI 

181 RCL 01 

124 * 

182 CHS 

125 RCL 88 

183 RCL 03 

126 * 

184 + 

127 RCL 81 

185 PI 

128 / 

186 * 

129 COS 

187 RCL 88 

138 * 

188 * 

131 ST+ 84 

189 RCL 61 

132 RCL 81 

198 / 

133 CHS 

191 SIH 

134 RCL 85 

192 * 

135 1 

193 ST+ 84 

136 + 

194 2 

137 RCL 83 

195 STO 85 

138 ♦ 

1964L8L 84 

139 + 

197 RCL 05 

STO 18 

198 RCL 02 

141 XEQ IHD 86 

199 - 

142 4 

290 2 

♦ 

201 + 

144 RCL 18 

282 X>6’ 

45 PI 

283 GTO 85 


284 

RCL 

81 

232 

SfO 

ié 

285 

CHS 


233 

XEQ 

IHD 06 

286 

RCL 

85 

234 

4 


287 

RCL 

83 

ií35 

* 


283 

* 


236 

RCL 

10 

289 

+ 


237 

n t 

r i 


218 

STO 

10 

238 

* 


211 

XEQ 

IHD 86 

239 

RCL 

68 

212 

2 


248 

* 


213 

* 


241 

RCL 

81 

214 

RCL 

18 

242 

/ 


215 

PI 


243 

SIN 


216 

♦ 


244 

* 


217 

RCL 

88 

245 

ST+ 

84 

218 

♦ 


246 

0 

i. 


219 

RCL 

01 

247 

ST+ 

05 

228 

/ 


248 

GTO 

84 

221 

SIH 


249»L8L 

85 

222 

* 


259 

RCL 

83 

223 

ST+ 

04 

251 

3 


224 

RCL 

81 

252 

/ 


225 

CHS 


253 

RCL 

84 

226 

RCL 

85 

254 

* 


227 

i 

1 


255 

STO 

87 

228 

+ 


256 

RTH 


229 

RCL 

83 




230 

* 


25?*L6L 

81 

231 



258 

EHB 
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José Eduardo Moreira 
Wilson José Tucci 


No número 17 da Microhobby, pu¬ 
blicamos algumas rotinas para matrizes. 
Utilizaremos agora algumas daquelas ro¬ 
tinas para construir um programa que 
inverta matrizes. 

Dada uma matriz A, sua inversa 
A -1 é apresentada de tal forma que: 
A.A- 1 = 1(1). 

Seja A^ 1 a K-ésima coluna da ma¬ 
triz A -1 ela K-ésima coluna da ma¬ 
triz I. 

Então vale: 

A.A k -i= l k (2) 

Ou seja, o produto da matriz A pela 
K-ésima coluna da matriz A resulta na 
K-ésima coluna da matriz I. 

Acontece que o que queremos de¬ 
terminar é justamente os valores dos ele¬ 
mentos da matriz A -1 . Ora, o que está 
descrito em (2) nada mais é do que uma 
equação matricial da forma A x = b. 

Cada equação que resolvermos nos 
dará uma coluna da matriz inversa. Se ti¬ 
vermos invertendo uma matriz A, basta 
resolver N equações matriciais (sistemas 
de equações), uma para cada coluna, e 
teremos a matriz inversa A. 

O algoritmo da Solução 

Utilizaremos, então, o seguinte al¬ 
goritmo para inverter matriz. 

1. Fazemos a entrada e a possível edi¬ 
ção da matriz A. 

2. Triangularizamos a matriz A. 

3. Verificamos se o determinante é dife¬ 
rente de 0. 

4. Para K de 1 até N. 

4.1 Geramos em B a k-ésima coluna 
da matriz I (ou seja, 0 em todas as li¬ 
nhas, menos na linha K, onde vai 1). 

4.2 Resolvemos o sistema Ax = b, 
guardando o resultado x na k-ésima co¬ 
luna da matriz AINV (inversa de A). 

5. Mostrar a matriz AINV. 

Esse programa foi montado de for¬ 
ma semelhante ao que mostramos na re¬ 
vista 17. Foram acrescentadas três sub- 
rotinas para realizar a inversão da matriz 
e foram feitas algumas alterações. 

A seguir, descreveremos suscinta- 
mente o programa. Para maiores infor¬ 
mações, veja o artigo ''Algumas Roti¬ 
nas para Matrizes", na Microhobby 17, 
página 21. 

As linhas do programa 

Linhas 20-120: esse é o programa 
principal, na verdade um menu para es¬ 


colher possíveis operações que são: 

1. entrada da matriz A 

2. edição da matriz A 

3. inversão da matriz A 

4. fim 

Linhas 1000-1130: faz o dimensio¬ 
namento dos vetores e matrizes utiliza¬ 
dos e também a entrada da matriz A. 

Linhas 2000-2150: permitem ver e 
modificar os elementos da matriz A de¬ 
pois que ela foi digitada (é comum errar- 
se pelo menos um elemento ao se digi¬ 
tar uma matriz grande), ela é mostrada 
coluna a coluna. Para se modificar um 
elemento de uma coluna, basta dar o 
número de sua linha (o que aparece na 
frente do valor) e dar RETURN. O com¬ 
putador pede o novo valor. Para passar 
para a próxima coluna ou acabar (se vo¬ 
cê estiver na última coluna), digite 0 e 
RETURN. 

Linhas 3000-3200: faz a triangulari- 
zação da matriz A, fundamental para se 
resolver os sistemas. Se a triangulariza- 
ção não se completar é porque a matriz 
tem determinante 0 e, portanto, não é 
inversível. 

Linhas 4000-4240: resolução do sis¬ 
tema. Na verdade, a entrada nessa sub- 
rotina se faz pela linha 4080, visto que as 
linhas 4020-4070 servem só para fazer a 
entrada do vetor B via teclado. Em rela¬ 
ção ao programa anterior foram suprimi¬ 
das as linhas 4250-4320, que imprimiam 
o vetor das incógnitas. 

Linhas 5000-5070: calculam o de¬ 
terminante da matriz A depois que ela 
foi triangularizada. Para isto, basta mul¬ 
tiplicar elementos da diagonal principal. 

Linhas 6000-8040: calculam a inver¬ 
sa da matriz A, conforme algoritmo já 
visto. Vale a pena chamar a atenção da 
rotina das linhas 6160-6230, que fazem a 
visualização da matriz inversa: que algu¬ 
ma tecla seja apertada para mostrar o 
próximo. 

O Programa 


10 RErt INVERSÃO DE MATRIZES 
20 HOME 

30 VTAB 3: INVERSE : PRINT "INVE 
RSAO DE MATRIZES": NORMAL 
40 VTAB 5: PRINT "t - ENTRADA DA 
MATRIZ A" 

50 PRINT "2 - EDICAO DA MATRIZ A 

U 


60 PRINT "3 - INVERSÃO DA MATRIZ 
A" 

70 PRINT "4 - FIM" 

80 VTAB 15: HTA8 i: PRINT "QUAL 
A OPERACAO DESEJADA ?"•: GET 
A$:A = VAL (Aí): PRINT A 
90 IF A = 4 THEN END 
100 IF A < 1 ÔR A > 3 THEN 80 
110 ON A GOSUB 1000.2000,6000 
120 GOTO 10 

1000 REM DIMENSIONAMENTO E 
1010 REM ENTRADA DA MATRIZ A 
1020 REM LIMPAR MEMÓRIA 
1030 CLEAR : HOME 
1040 INPUT "QUAL A ORDEM DO SIST 
EMA ?":N 

1050 PRINT : PRINT 

1060 DIM A(N,N).8(N),X(N),AINV(N 

,N> 

1070 FOR I = 1 TO N 
1080 FOR J = 1 TO N 
1090 PRINT "A(";I;",";J;") ?"• 
1100 INPUT "";A(I,J) 

1110 NEXT J 
1120 NEXT I 
1130 GOTO 10 

2000 REM EDICAO DA MATRIZ A 
2010 FOR J = 1 TO N 
2020 HOME 

2030 PRINT " COLUNA ";J 
2040 PRINT : PRINT 
2050 FOR I = 1 T0 N 
2060 PRINT If* - ";A(I,J) 

2070 NEXT I 

2080 VTAB 23: PRINT "NUMERO A C0 
RRIGIR (0 PASSA)"; 

2090 INPUT L 

2100 IF L = 0 G0T0 2140 

2110 VTAB 23: HTAB i: PRINT SPCI 

39) 

2120 VTAB 23: HTAB Ü PRINT "A(" 
;L;",";J;") ?";: INPUT "";A( 

L,J) 

2130 G0T0 2020 
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Calculadora RPN 


2140 «EXT J 
2150 RETURN 

3000 REM TRIANGULARIZACAO DA 
3010 REM MATRIZ A 
3020 FOR I = 1 TO N - 1 
3030 FOR J = I + 1 TO N 
3040 IF A(I r I) = 0 THEN 3150 
3050 C = A(J,I) / A(I r I) 

3060 FOR K = I + 1 TO N 
3070 A(J.K) = A(J,K) - A(I,K) * C 

3080 NEXT K 

3090 REM GUARDA 0 FATOR 
3100 REM MULTIPLICATIVO 
3110 A(J,I) = C 
3120 NEXT J 
3130 NEXT I 
3140 GOTO 3200 

3Í50 PRINT : PRINT : PRINT "TRIA 
NGULARIZACAO INCOMPLETA" 

3160 PRINT : PRINT "DET A=0" 

3170 POKE - 16368,0 

3180 KEY = PEEK ( - 16384) 

3190 IF KEY ( 128 THEN 3180 
3195 GOTO 10 
3200 RETURN 

4000 REM RESOLUÇÃO DE SISTEMA 

4010 REM ENTRADA DO VETOR B 

4020 HOME 

4030 PRINT : PRINT 

4040 FOR I = i TO N 

4050 PRINT "B(";I?"> ?": 

4060 INPUT ;B íI) 

4070 NEXT I 

4080 REM OPERACOES EM B 
4090 FOR I = 1 TO N - 1 

4100 FOR J = I + i TO N 

4110 C = A(J,I) 

4120 B(J) = B(J) - BÍI) * C 
4130 NEXT J 
4140 NEXT I 

4Í50 REM CALCULO DAS INCÓGNITAS 

4160 X(N) = B(N) / A(N,N) 

4170 FOR I = N - 1 TO 1 STEP - 
1 

4180 SOMA = 0 
4190 FOR J = I + 1 TO N 
4200 SOMA = SOMA + X(J) * A(I r J) 
4210 NEXT J 

4220 X(I) = (B(I) - SOHA) / A(I r I 
) 

4230 NEXT I 
4240 RETURN 

5000 REM CALCULO DO DETERMINANT 


E 

5010 DET = 1 

5020 FOR I = 1 TO N 

5030 DET = DET * Aü r I> 

5040 NEXT I 

5050 PRINT : PRINT : PRINT "DET 
DA MATRIZ A=":DET 
5060 FOR I = 1 TO 3000: NEXT 
5070 RETURN 

6000 REM CALCULO DA MATRIZ INVE 
RSA 

6010 GOSUB 3000 

6020 GOSUB 5000 

6030 IF DET < >0 THEN 6090 

6040 PRINT "A MATRIZ A NAO POSSU 

I INVERSA" 

6050 POKE - 16368,0 

6060 KEY = PEEK ( - 16384) 

6070 IF KEY < 128 THEN 6060 

6080 RETURN 

6090 FOR K = 1 TO N 

6Í00 GOSUB 7000: REM GERE 0 VET 

OR 6 

6110 GOSUB 4080: REM RESOLUÇÃO 
DO SISTEMA 

6120 GOSUB 8000: REM MONTA A MA 
TRIZ AINV 
6130 NEXT K 

6140 REM MOSTRA A MATRIZ AINV 
6150 HOME 

6160 FOR I = 1 TO N 

6170 FOR J = i TO N 

6180 PRINT "AINV(";I;V;J:")="; 

AINV(I,J) 

6190 POKE - 16368.0 

6200 KEY = PEEK ( - 16384) 

6210 IF KEY < 128 THEN 6200 
6220 NEXT J 

6230 NEXT I 

6240 RETURN 

7000 REM MONTA A K-ESIMA COLUNA 
DA MATRIZ IDENTIDADE NO VET 
OR B 

70iQ FOR I = 1 TO N 

7020 B(I) = 0 

7030 NEXT I 

7040 B(K) = 1 
7050 RETURN 

8000 REM GUARDA A COLUNA CALCUL 
ADA NA K-ESIMA COLUNA DA MAT 
RIZ AINV 

8010 FOR I = 1 TO N 

8020 AINV(I,K) = X(I) 

8030 NEXT I 

8040 RETURN 


José Eduardo Moreira 
Wilson José Tucci 


Se você, além de computador, pos¬ 
sui uma calculadora, então pelo menos 
uma vez você deve ter desejado que seu 
computador trabalhasse como ela, prin¬ 
cipalmente se você está acostumado 
com calculadoras da marca Hewlett- 
Packard. 

As calculadoras HP utilizam um sis¬ 
tema de notação muito eficiente conhe¬ 
cido como RPN (Reverse Polish Nota- 
tion — Notação Polonesa Reversa). 

A RPN é conseqüência do trabalho 
do matemático Jan Lukasiewicz, sendo 
um sistema que permite a entrada do 
operador matemático ( + , —, *, /, 
etc. . .) depois que os números a serem 
operados foram inseridos. 

Nesse sistema, a conta a + b é feita 
do seguinte modo: a T b +, onde " í " 
significa a tecla "ENTER', que serve pa¬ 
ra separar os dois números. E o cálculo 
(a + b) * (c + d) deve ser feito assim: 
a f b + c t d + *. Repare que esse 
sistema dispensa o uso de parênteses e 
do sinal de igual. 

Para ser implementado, contudo, 
esse sistema exige uma pilha operacio¬ 
nal de registradores. Nas calculadoras 
HP, essa linha contém 4 registradores, 
denominados X, Y, Z e T. O programa 
também serve para aprender a trabalhar 
com as calculadoras que utilizam RPN, 
pois o computador sempre apresenta o 
conteúdo de toda a pilha operacional, 
enquanto nas calculadoras só o conteú¬ 
do do registrador X é visível. 

Usando o Programa 

Quando você rodar o programa, a 
tela do computador ficará dividido em 
duas partes. Na metade esquerda da tela 
fica um menu explicativo das instruções 
e o estado da pilha operacional. No lado 
direito está o espaço de trabalho. 

Se você quiser fazer a conta 83.14 
+ 23.4, basta escrever o número 83.14, 
apertar RETURN, que equivale a tecla 
ENTER na calculadora, e depois o nú¬ 
mero 23.4 seguido da operação a ser fei¬ 
ta (tanto faz " + " ou O resultado é 
apresentado formatado, 106.54 e, como 
você pode perceber olhando a pilha, é 
colocado no registrador X. 

Além das operações básicas ( + , 
—, *, /) e potenciação, a calculadora 
ainda faz as operações Inx (L), e x (x) e 
N/x (Q). Para negar um número no regis¬ 
trador X, basta digitar C RETURN; para 
entrar um número negativo basta digi¬ 
tar C, imediatamente antes ou depois de 
darmos o número. 

À parte desses comandos de cálcu¬ 
lo, também são disponíveis os coman¬ 
dos: 
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R: rever pilha — mostra, na área de 
trabalho, o conteúdo da pilha operacio¬ 
nal. 

S: swap (troca) — troca o conteú¬ 
do do registrador X com o conteúdo do 
registrador Y. 

D: roll down — roda a pilha para 
baixo (o que estava em Y passa a X, o 
que estava em Z passa para Y, o que es¬ 
tava em T passa para Z e o que estava 
emX passa para T). 

U: roll up — roda a pilha operacio¬ 
nal para cima. 

F: formato — especifica com quan¬ 
tas casas após a vírgula o resultado deve 
ser apresentado. Se pedirmos mais do 
que nove casas não ocorrerá formata¬ 
ção. 

0 programa que se segue foi rees¬ 
truturado a partir de um artigo da revista 
Nibble, volume 5, número 6. 


As linhas do Programa 

Linhas 130-230: imprimem o con¬ 
teúdo da pilha operacional e posicionam 
o cursor na sua localização anterior. 

Linha 240: aceita um caractere do 
teclado. 

Linhas 250-270: convertem caracte¬ 
res minúsculos aos maiúsculos corres¬ 
pondentes. 

Linha 280: procura a seqüência "C" 
RETURN e, se a encontra, nega o 
conteúdo de X. 

Linha 290: procura o comando "C" 
e, se o encontra, prefixa o número com 
um sinal negativo. 

Linha 300: procura o comando "F", 
de formato, e o executa se achado. 

Linha 310: imprime o caractere en¬ 
trado e o adiciona ao fim de B$. Se foi 
dado apenas um RETURN, então a pi¬ 
lha sobe. 

Linha 320: verifica se você está en¬ 
trando um número, e se sim, volta para 
240 para pegar mais um caractere. Você 
pode entrar um número em notação 
científica (exemplo: 2.13 E 21). 

Linha 330: se achou um RETURN, 
então sobe a pilha e coloca o novo nú¬ 
mero no registrador X. 

Linhas 340-350: fazem o "backspa- 

ce . 

Linha 360: procura pela seqüência 
"E—", permitindo a entrada de núme¬ 
ros em notação científica com expoente 
negativo. 

Linha 370: sobe a pilha e coloca o 
último número no registrador X. 

Linha 380-420: realizam as opera¬ 
ções de adição, subtração, multiplica¬ 
ção, divisão e potenciação, operando 
nos registradore X e Y. Desviam, en¬ 
tão, para uma rotina que mostra o resul¬ 
tado e abaixa a pilha. 

Linhas 430-450: fazem as operações 
Inx, e x e x . 

Linhas 460-480: fazem as operações 
de troca X com Y, rever a pilha, roll- 
down e roll-up. 

Repare que a volta das operações 
sempre se faz para a rotina de apresen¬ 
tação da pilha. Por isso, antes da volta, 
fazemos em V = PEEK (37) para deter¬ 


minar a posição do cursor e para que ele 
seja devidamente reposicionado. 

Linhas 510-520: abaixam a pilha e 
mostram o conteúdo do registrador X. 

Linha 530: mostra o conteúdo dos 
quatro registradores. 

Linhas 540-550: mostram o conteú¬ 
do do registrador X. 

Linhas 560-660: rotina para forma¬ 
tação dos números. Sempre que uma 
conta é feita, o resultado é formatado 
por essa rotina antes de ser apresenta¬ 
do. O número a ser formatado entra em 
XX e sai em X$. 

Linhas 670-680: pedem as informa¬ 
ções necessárias para formatação (exe¬ 
cutam o comando "F"). 

Linhas 690-930: estruturam a tela, a 
área de trabalho e inicializam o formato 
para 2 dígitos depois da vírgula. 

Linhas 940-970: rotina para tratar 
erros. Mostra o erro que ocorreu e a pi¬ 
lha operacional e continua o programa. 


0 REfl CALCULADORA RPN 

100 

ONERR GOTO 940 


110 

GOSUB 690 


120 1 

U = 0 


130 

P0KE 32,0 


Í4Q 

VTAB 21: HTAB 5: 

PRINT SPC( 

14); 



Í50 

VTAB 21: HTAB 5: 

PRINT T 

160 

VTAB 22: HTAB 5: 

PRINT SPC( 

14); 



170 

VTAB 22: HTAB 5: 

PRINT Z 

180 

VTAB 23: HTAB 5: 

PRINT SPC( 

14); 



190 

VTAB 23: HTAB 5: 

PRINT Y 

200 

VTAB 24: HTAB 5: 

PRINT SPC( 

14); 



210 

VTAB 24: HTAB 5: 

PRINT X; 

220 

P0KE 32.20 


230 

VTAB V + l: HTAB 

1 

240 

GET Al 


250 

IF Al = THEN 

Al = "+" 

260 

IF Al = THEN 

Al = 

270 

IF Al = "N" THEN 

Al = " A " 

280 

IF Bl = AND 

ASC (Al) = 

13 THEN X = - X: GOTO 540 

290 

IF Al = "C" THEN 

Bl = + 

Bl: 1 

HTAB i: PRINT Bf;S 

: GOTO 

240 



300 

IF Al = "F" THEN 

GOSUB 670: 

GOTO 240 


310 

PRINT Al;:BI = Bl + Al: IF ASC 

(Bl) 

= 13 THEN T = Z:; 

[ = Y:Y 

= X 

: PRINT X:BI = *"i 

:V = PEEK 

(37) 

: GOTO 130 


320 

TE = ASC (Al): IF (TE > 47 AND 


TE < 58) OR (TE = 69) OR (Al 
= THEN 240 

330 IF TE = 13 THEN T = Z:Z = Y: 

Y = X:X = VAL (BI):BS = 

V = PEEK (37): GOTO 130 

340 IF TE = 8 AND LEN (BI) ( 3 THEN 
BI = PRINT " "■ CHRI (8) 

•: GOTO 240 

350 IF TE = 8 THEN BI = LEFTI ( 

Bl, LEN (BI) - 2): PRINT " * 

• CHRI (8)-: GOTO 240 
360 IF LEN (BI) > 1 THEN IF TE 
= 45 AND MIDI (BI, LEN (BI 
) - i r í) = "E" THEN 240 
370 IF LEN (BI) > 1 THEN T = Z: 

Z = Y:Y = X:X = VAL (BI) 

380 IF Al = THEN X = X + Y: GOTO 
510 

390 IF Al = THEN X = Y - X: GOTO 
510 

400 IF Al = THEN X = X * Y: GOTO 
510 

410 IF Al = *1" THEN X = Y / X: GOTO 
510 

420 IF Al = ,/A,/ THEN X = Y A X: GOTO 
510 

430 IF Al = "L" THEN X = LOG (X 
): GOTO 510 

440 IF Al = "ô" THEN X = SOR (X 
): GOTO 540 

450 IF Al = "X" THEN X = EXP (X 
): GOTO 540 

460 IF Al = "S" THEN TE = X:X = 

YSY = TE: GOSUB 530: GOTO 13 
0 

470 IF Al = "R" THEN GOSUB 530: 

GOTO 130 

480 IF Al = "D" THEN TE = X:X = 

YsY = Z:Z = T:T = TE: GOSUB 
530: GOTO 130 

490 IF Al = "U" THEN TE = T:T = 

Z:Z = Y:Y = X:X = TE: GOSUB 
530: GOTO 130 
500 GOTO 240 

510 Y = Z:Z = T:BI = IF NOT 
(F) 0R ABS (X) > 1E9 THEN PRINT 
: PRINT X:V = PEEK (37): GOTO 
130 

520 XX = X: GOSUB 560:0 = PEEK ( 

37): GOTO 130 

530 PRINT : PRINT "T = ";T : PRINT 
"Z = "-Z: PRINT "Y = ":Y: PRINT 
"X = ";X:BI = "":V = PEEK ( 

37): RETURN 

540 BI = IF NOT (F) OR ABS 
(X) > = 1E9 THEN PRINT : PRINT 
X:V = PEEK (37): GOTO 130 
550 XX = X: GOSUB 560:0 = PEEK ( 

37): GOTO 130 
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560 PRINT :S = S6N (XX):IL = UX 

- DZ - is IF DX = 0 THEN IL 
= IL + 1 

570 N2 = Í0 A D%:Ní = ABS (XX) ♦ 
.5 / N2:IP = INT (HÍ)sPF = 

INT <N2 * (Ni - IP)) + N2SX 
S = STRI (IP)sL = LEN (XI) 

SC = (L - í) / 3:B% = 3 

580 IF C ( í THEN 600 

590 XI = LEFTI (XI, LEN (XI) - B 

Z) + V ♦ RIGHTI (XI.BZ)sB 

Z = BX + 4:C = C - i:IL = IL 

- í: GOTO 580 

600 IF IL = 0 AND IP = 0 THEN XI 
= "":L = 0 

610 IF S < 0 THEN L = L + ísXI = 
+ XIi IF IP = 0 AND IL = 
i THEN XI = "-"SL = í 
620 IF IL < L THEN 660 
630 IF IL > L THEN XI = " " ♦ XI 
sL = L + is GOTO 630 
640 IF D% > Q THEN XI = XI ♦ 

+ RIGHTI ( STRI (PF),DX) 

650 PRINT Xis RETURN 


660 XI = "*###########*##*####*#* 
M"SXI = LEFTI (Xl y UZ)s PRINT 
XI: RETURN 

670 INPUT "(RIANTAS CASAS DECIMAI 
S ?"-DZ: IF DZ > 9 THEN F = 

0: RETURN 

680 F = ÍSWZ = 19: RETURN 

690 TEXT : HOME : PRINT "TECLA F 

UNCAO" 

700 PRINT "." 

710 PRINT "RETURN ENTER ( A )" 

720 PRINT " C CHS" 

730 PRINT "+ OU • SOMA" 

740 PRINT " - SUBTRACAO" 

750 PRINT "» OU • VEZES" 

760 PRINT " / DIVIDE" 

770 PRINT " A OU Y A X" 

780 PRINT " L LN(X)" 

790 PRINT " X EXP(X)" 

800 PRINT " 0 SÔRT(X)" 

810 PRINT "-" 

820 PRINT " <~ APAGA" 

830 PRINT "(R)EV. VER PILHA" 

840 PRINT "(S)WAP X <-> Y" 


850 PRINT "(D)OWN ROLL DOWN" 

860 PRINT "(U)P ROLL UP" 

870 PRINT " F FORMATO" 

880 PRINT "-" 

890 INVERSE 
900 PRINT "T = " 

910 PRINT "Z = " 

920 PRINT "Y = ": PRINT "X = 

NORMAL 

930 FOR I = i TO 24: VTAB Is HTAB 
19: PRINT NEXT : POKE 
32,20: POKE 33,20:DZ = 2: GOSUB 
680: HOME : RETURN 
940 I = PEEK (222): PRINT CHRI 
(7): PRINT "ERR:'V IF I = 0 
OR I > 15 THEN J = 53856 ♦ 

I + (I = 255) * - i: GOTO 9 
60 

950 J = 43377 + PEEK (43583 ♦ I) 

960 K = PEEK (J): PRINT CHRI (K 
)■: IF K ( 192 THEN J = J ♦ 
i: GOTO 960 

970 PRINT :AI = "R": GOTO 470 


Two Liners: Dunas 

Milton de Oliveira 


Eis aqui uma modestíssima colaboração à seção Two 
Liners. Meus amigos batizaram esta pequena "obra pri¬ 
ma", delicadamente, de Dunas. Ela roda tanto no Apple 
quanto no TK 2000, sem problemas. 


1 HGR2 : HCOLOR= 3: FOR XI = O Tü 

190:X2 = X2 + 279 / 191:M = 

X2 * ATN <1) / 45 * 360 / 2 
79 * 3 

2 Y1 = COS <M) * 130 + 139: HPLGT 

X2,0 TO Y1,X1: NEXT XI 


Colaborações à seção Two Liners deverão ser envia¬ 
das à: 

Revista Microhobby 
Seção Two Liners 
Caixa Postal 54096 
01296 - São Paulo - SP 

Os programas deverão ser obrigatoriamente sobre 
gráficos e de apenas duas linhas, e rodar no Apple, no TK 
2000 ou em ambos. 

As colaborações para a seção Two Liners não são re¬ 
muneradas. 
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ESPECIAL 


WÊÊÊÊÊÊÊÊÊÊKÊÊÊÊÊÊÊÊBÊBÊÊRÊÊÊÊM 


O micro e o professor na sala de aula 


Ana Lúcia de Alcântara 


A introdução da informática no ensino tem 
geralmente muitas polêmicas nos últimos anos. 
Alguns afirmam que a tecnologia traz inúmeros 
benefícios ao aprendizado da criança e do adoles¬ 
cente. Mas # em meio a toda esta polêmica como 
situar o professor? Afinal de contas será ele o uti¬ 
lizador da metodologia de ensino que a informá¬ 
tica traz consigo. 

Nossa preocupação na elaboração desta re¬ 
portagem foi com a questão do treinamento do 
professor e de como a informática está sendo 
aplicada dentro da sala de aula. Além disto, ela¬ 
boramos a seguinte questão: como está o rela¬ 
cionamento entre o educador e o aluno? 

Com estes objetivos traçados, tentamos res¬ 
ponder buscando a respota junto a figura central 
deste processo: o professor. 



A Sala de aula do futuro. 


Com um microcomputador embai¬ 
xo do braço, o professor entra na sala de 
aula e apresenta a seus alunos seu mais 
novo aliado. Porém, antes de colocá-lo 
em funcionamento, ele desenvolve sua 
aula teórica normalmente, risca alguns 
teoremas no velho quadro negro e, no fi¬ 
nal da aula, exemplifica as informações 
dadas, através da digitação de alguns 
comandos do programa, desenvolvido 
por ele mesmo, na Wla do vídeo de uma 
TV comum. 

Esta experiência repete-se de vez 
em quando nas aulas de Física do pro¬ 
fessor de segundo grau José Roberto 
Fernandes. Utilizando seus próprios re¬ 
cursos, ele introduziu um pequeno mi¬ 


cro em suas aulas, desenvolvendo pro¬ 
gramas didáticos para simulação de al¬ 
gumas teorias de Física (dilatação dos 
gases, simulação de choque, etc.) e 
conseguiu um efeito para ele bastante 
importante: "aumentar o interesse dos 
alunos pelas aulas e liberar-se para aten¬ 
dê-los em suas dúvidas". 

A experiência de José Roberto está 
sendo vivida por vários educadores bra¬ 
sileiros — principalmente nas escolas de 
rede privada, e em menor grau, partin¬ 
do sempre de iniciativas próprias, nas 
escolas de 1? e2? graus da rede oficial de 
ensino — muitas vezes trazendo medo, 
incertezas e, em alguns casos, resulta¬ 
dos "altamente satisfatórios". 


A recente discussão em cima do te¬ 
ma 'introdução do microcomputador no 
ensino brasileiro', iniciada a partir da di¬ 
vulgação dos planos do projeto Educon, 
organizado e produzido pelo MEC — Mi¬ 
nistério da Educação e Cultura e outras 
entidades associadas a ele, trouxe à bai¬ 
la diversos aspectos que antes estavam 
obscurecidos talvez pela acomodação 
de muitos. Um dos tópicos que têm si¬ 
do levantados é a validade da introdução 
do computador numa estrutura de ensi¬ 
no há muito tempo deficitária. Outro 
ponto destacado nestas discussões é a 
questão da formação do educador: que 
apoio e suporte serão dados aos profes¬ 
sores para esta introdução seja realiza¬ 
da sem traumas? 

Para José Fernandes, não é difícil 
treinar o professor. "0 mais importante 
é a disponibilidade de software educa¬ 
cional para sua utilização". E, segundo 
ele, o melhor é não sofisticar a introdu¬ 
ção da nova metodologia de ensino. Fer¬ 
nandes acredita que qualquer melhoria 
que possa beneficiar o aluno deve ser 
bem vista: 

— "Colocar um computador (mi¬ 
cro) na escola fica mais barato do que 
montar um laboratório. Não há necessi¬ 
dade de serem instalados dezenas de 
computadores. Pode-se pensar, facil¬ 
mente, em instalar uma rede local, mon¬ 
tando um centro interdisciplinar que dis¬ 
ponha dos equipamentos e possua uma 
equipe responsável pela preparação do 
software. Um centro onde o aluno e os 
professores tenham acesso, ou seja, um 
centro irradiador de programas por re¬ 
gião escolar ou através de delegacias de 
ensino". 
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0 Educon 

Dentro do Educon, que tem envol¬ 
vido diversas universidades em seu de¬ 
senvolvimento (porém, até o momento 
os recursos para sua implementação não 
foram liberados), estão previstos itens 
como treinamento e conscientização 
dos professores sobre o potencial do 
computador como instrumento auxiliar 
em suas aulas; colocação, à disposição 
dos professores, do instrumental neces¬ 
sário para que eles próprios desenvol¬ 
vam seus programas que irão ser utili¬ 
zados pelos alunos. Há também a preo¬ 
cupação de que o educador assuma 
uma mudança em seu papel e na relação 
com o aluno, passando a executar tare¬ 
fas de monitoria e análise das informa¬ 
ções fornecidas pelo computador. 

Este tipo de projeto visa principal¬ 
mente, segundo seus executores, à de¬ 
mocratização da educação (num futuro 
próximo); à elevação do ritmo de apren¬ 


dizado dos alunos, destacando como 
pontos básicos para sua implementa¬ 
ção os seguintes aspectos: o computa¬ 
dor deve ser introduzido na escola com 
o objetivo de auxiliar o educador e como 
um instrumento-ampliador de suas fun¬ 
ções. A determinação de que os aspec¬ 
tos pedagógicos e educacionais deverão 
ter prioridade sob os aspectos tecnoló¬ 
gicos (que estão a seu serviço) e que os 
recursos dados aos projetos não devem 
ser derivados de. recursos que seriam de 
educação básica, "primordial do Brasil", 
mas de áreas que atendam às condições 
de trabalho dos doscentes e discentes. 

Partindo destes pressupostos, mui¬ 
tos colégios iniciaram seus projetos de 
informatização do ensino. A maioria, 
porém, ligados a entidades ou empreen¬ 
dimentos particulares. É o exemplo do 
Colégio Objetivo que investiu, até feve¬ 
reiro deste ano, 4,7 bilhões de cruzeiros 
em seu projeto de informática. Os tópi¬ 
cos principais considerados pelo Colé¬ 


A/unos e professores 
trabalhando juntos 

— " Professor , quanto rendeu a RDB 
este mês?" 

Há alguns anos, esta pergunta parecia 
insólita se formulada por uma criança de 
oito ou nove anos de idade. Mas agora, ela 
faz parte da rotina no Colégio de Aplicação 
da Universidade Estadual do Rio de Janeiro 
onde, com a ajuda de um microcomputa 
dor TK 86 da Microdigital, acoplado a ai 
guns periféricos, foram criados um Banco, 
um bazar e uma indústria gráfica, que fun 
cionam em caráter experimental no curso 
profissionalizante de Secretariado e Admi 
nistração. 

Esta é uma experiência bastante ino 
vadora sob dois aspectos: tornou o Colégio 
um dos pioneiros no uso didático do micro 
e aplicou uma tecnologia avançada à área 
das Ciências Humanas, fazendo uma ponte 
eficiente de serviços. 

A primeira consequência foi um a crês 
cimo considerável na procura do curso em 
questão (cerca de 50%), que passava por 
uma séria crise e que estava na iminência 
de ser eliminado do curriculum da escola. A 
segunda, um aproveitamento bem maior 
por parte dos alunos na disciplina. A idéia 
de montar o Grupo PAS (Profissionalizante 
de Alimentação e Secretariado), partiu da 
professora Edna Mara Affonso e teve como 
principal objetivo tornar o curso mais 
atraente aos alunos da primeira e segunda 
séries do segundo grau, cuja faixa etária es 
tá entre 14 e 16 anos. Segundo ela, o fato 
de as aulas serem, antes da utilização do 
micro, 100 % teóricas estava causando uma 
série de dificuldades até mesmo no rela cio 
na mento a/una professor. Por ser uma área 
considerada estéril por muitos, foram cria 
dos os instrumentos através dos quais os 
alunos passaram a ter um real controle so 
bre o assunto: 

"Montar uma empresa no ramo do co 
mércio, ou uma indústria, ou mesmo admi 
nistrar bens e mexer com dinheiro podem 
ser atividades bastante estimulantes. Mas 
se você vê isso somente no papel, como 
por exemplo, um organograma, uma ação 
fria, etc., é muito diferente do que obser 
var estas coisas todas funcionando na prá 
tica", comenta Edna. "Aqui no Colégio, os 
alunos negociam papéis, aplicam e vêem os 
rendimentos. Administram mesmo o bazar. 


aprendem a manter um controle de esto 
que, a controlar as vendas, a trabalhar em 
um laboratório, e, mais tarde, se resolve 
rem fazer uma Faculdade de Administra 
ção, saberão exata mente quais são as pos 
sibi/idades de desenvolvimento em cada 
setor". _ , 

Falta de verbas, 
ainda um problema 

Apesar de não haver nenhuma verba 
específica para o desenvolvimento do pro 
jeto no orçamento do Colégio, o diretor 
João Álvaro Ferreira apoiou a iniciativa. No 
momento, não há planos imediatos de ex 
pansão por causa dos problemas financei 
ros do setor da Educação. Mas a tendência 
é crescer e o interesse é grande. Se não 
chega a ajuda oficial, os próprios alunos se 
organizam e montam grupos de trabalhos 
interdisciplinares, para pesquisar, com seus 
próprios recursos, uma maneira de apertei 
çoar o que já existe e integrar outras áreas 
no uso do computador. 

Semanalmente, alunos e professores 
se reúnem para trocar informações, em um 
horário em que não há atividades previstas 
no cronograma de aulas do Colégio. È um 
trabalho voluntário que tem mobilizado pra 
ticamente toda a escola e gerado uma inte 
gração muito grande entre alunos dos mais 
variados níveis (desde a quinta série do pri 
meiro grau até alunos do pré vestibular). 
Destas reuniões já surgiram resultados con 
eretos, como a adaptação bem sucedida de 
quatro programas para serem usados espe 
cif icamente nas "empresas" do grupo 
PAS: o programa de controle de estoque, 
controle de contas corrente, arquivo pes 
soai e um de propaganda, elaborado em 
conjunto com os alunos da área de Comu 
nicação Visual. Segundo a professora Edna 
Maria, além de despertar o interesse peia 
cadeira, a criação desta parte prática tam 
bém serviu para estimular a criatividade dos 
alunos. 

"Ao sair do papel e saltar para a rea/i 
da de, a teoria ganha uma outra dimensão", 
explica Edna Mara. "Ao desenvolvermos 
um projeto de caráter experimental, como 
este que temos aqui, percebemos também 
que uma boa dose de responsabilidade pe 
lo insucesso da maneira tradicional de dar 
aula, *no cuspe e giz', cabe ao pequeno 
grau de participação que o aluno oode ter 
na elaboração e na procura de alternativas 


gio foram: a introdução do computador 
na sala de aula como elemento-auxiliar 
do professor e para ser usado em "expe¬ 
riências de simulação de situações que 
seriam impossíveis de serem feitas tradi¬ 
cionalmente". Uma experiência que, se¬ 
gundo José Augusto Nasser, professor 
de Química, tem gerado maior atenção 
dos alunos nas aulas, tornando o nível 
de aprendizado bem mais rápido. "0 
computador tem sido utilizado sem fe¬ 
rir os métodos tradicionais de ensino. 
Numa aula de 50 minutos, o professor 
expõe a teoria do programa curricular, 
demonstra a parte experimental da aula 
(com a simulação mecânica) e, poste¬ 
riormente, apresenta a confirmação (nos 
15 minutos finais) da teoria, eletronica¬ 
mente". 

0 projeto do Objetivo levou em 
conta, inicialmente, o desenvolvimento 
próprio de programas educacionais, ela¬ 
borados juntamente com os educado¬ 
res, analistas de sistemas e psicólogos e, 


que possam servir aos seus interesses. 
Acho que o mais interessante, neste caso, 
ê que todas estas idéias só puderam surgir e 
serem postas em prática com uma partici 
pação muito grande dos alunos. E/es mos 
traram, de certa forma, que quanto mais 
democrática a maneira de ensinar, mais po 
sitivos são os resultados obtidos. Desde 
que implantamos o projeto, temos notado 
que a média, em termos de aproveitamento 
e notas, foi elevada", concluiu. 

Colaboração dos pais 

A iniciativa também foi aprovada fora 
dos muros da escola. Os pais também cola 
boram, quando podem, e dizem, por exem 
pio, que a criação do Banco PAS teve, en 
tre outras utilidades, a de evitar que seus 
filhos sejam assaltados nas ruas da cidade, 
já que não precisam carregar dinheiro para 
a escola, a não ser o suficiente para ir e vo! 
tar de condução. Para comprar qualquer 
coisa dentro do Colégio qualquer aluno po 
de sacar o seu talão de cheque do Banco 
PAS e pagar. No momento, já estão cadas 
trados mais de 290 contas dos mais varia 
dos clientes, entre alunos, professores e 
funcionários, movimentando, mais ou me 
nos, três milhões de cruzeiros por mês. 

Para o futuro, todas as pesàoas envol 
vidas na criação deste primeiro núcleo de 
utilização de recursos da informática na 
área da Educação esperam uma coisa: 
apoio oficial para que o trabalho possa cres 
cer e tomar consistência. E uma valorização 
maior destes esforços por parte de toda a 
comunidade. 

A professora Edna Mara espera que o 
trabalho, desenvolvido quase que pioneira 
mente pela UFRJ, seja reconhecido pela 
sociedade. Ela defende uma maior divulga 
ção através dos meios de comunicação pa 
ra iniciativas como estas, para que o proje 
to possa ser levado adiante no país, com a 
ampliação do uso do micro em outros cen 
tros educacionais. Ela lamenta também, 
que no Brasil trabalhos como o que vem 
sendo desenvolvido na UERJ só ganhem 
vulto quando realizados no exterior, que 
chegam aqui com rótulos de novidades. 
FF. 
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posteriormente, o treinamento dos pro¬ 
fessores. 

— "No início houve uma rejeição 
por parte dos educadores. A fase de 
adaptação à nova tecnologia foi bastan¬ 
te delicada. Porém, com o tempo, após 
o período de treinamento, que envolveu 
um processo de conscientização e ensi¬ 
no das linguagens de programação, eles 
perceberam que o computador tinha 
vindo com o intuito de valorizar suas au¬ 
las", destacou o professor Di Gênio, 
presidente do Colégio Objetivo e um dos 
iniciadores da utilização da informática 
no ensino. 



"O importante da nova tecnologia são os re 
cursos laboratoriais que ela possibilita. Ela dá 
ao professor a vantagem de simular situações 
que seriam impossíveis de serem feitas tradi 
ciona/mente". Professor José Augusto 
Nasser. 


Universidades e seus 
projetos pioneiros 

As universidades públicas foram as 
primeiras a desenvolverem projetos-pi¬ 
lotos, na área educacional, utilizando a 
informática como recurso didático-pe¬ 
dagógico. Muitas vezes, contando ape¬ 
nas com o apoio de seus pesquisadores 
e com a boa vontade de alguns poucos 
fabricantes. Nesta situação estão as uni¬ 
versidades como a Unicamp — Univer¬ 
sidade de Campinas, em São Paulo, que 
tem a presença do professor Eduardo 
Chaves à frente de seu projeto LOGO e a 
UFRJ — Universidade Federal do Rio de 
Janeiro, onde o professor Guilherme 
Chagas Rodrigues, do Núcleo de Com¬ 
putação Eletrônica, assume o papel de 
ideólogo-responsável pela viabilização 
do projeto Educon no Rio de Janeiro. 

A proposta da UFRJ é fazer com 
que o ensino dinamize, na medida em 
que alunos e professores passem a dis¬ 


por dos microcomputadores para o es¬ 
tudo de matérias básicas como: Mate¬ 
mática, Biologia, Física e Química. Há 
também o objetivo, ressaltado pelos 
educadores, de acompanhar quais serão 
os desdobramentos psico-sociais da in¬ 
trodução da "máquina" na sala de aula. 
E uma preocupação maior: como os 
educadores e alunos se portarão diente 
de uma tecnologia mais avançada, que 
possibilitará demonstrações práticas da 
teoria que está sendo ensinada. 

Para os professores, o mais impor¬ 
tante — antes da introdução efetiva do 
computador — é a observância "da ne¬ 
cessidade do País e da própria universi¬ 
dade de conseguir autonomia científica. 
Existe, na universidade inclusive um es¬ 
tudo para que haja a inclusão de uma 
habilitação (possivelmente da cadeira de 
informática) no currículo das faculdades 
de Pedagogia. Isso facilitaria o contato 
dos educadores a nível de segundo 
grau, com o que aplicar em sala de 
aula". 

A linguagem LOGO 
no aprendizado 

Na Unicamp, o professor Eduardo 
Chaves, diretor da Faculdade de Educa¬ 


ção e coordenador do empreendimento 
do MEC em São Paulo, tem levado 
avante um projeto bastante inusitado: o 
uso da linguagem LOGO no aprendiza¬ 
do de crianças, utilizando-a como uma 
filosofia de educação. Este projeto, im¬ 
plantado em 77, numa situação de labo¬ 
ratório — onde participaram crianças da 
comunidade acadêmica da Unicamp (fi¬ 
lhos de professores e funcionários) — 
foi aplicado em áreas específicas como 
Matemática e Geomatria. Ele trouxe tão 
bons resultados para os pesquisadores 
que estes decidiram expandí-lo, através 
do Educon, a algumas escolas de 1? e 2? 
graus da região de Campinas. "Porém, 
até agora ele não pôde ser implantado 
devido a não liberação de recursos pfor 
parte dos órgãos governamentais", res¬ 
saltou o professor Eduardo. 

Nos resultados obtidos com a filo¬ 
sofia LOGO, os pesquisadores notaram 
algumas alterações no relacionamento 
pedagógico entre o aluno e o professor. 
Segundo Eduardo Chaves, estas altera¬ 
ções deve-se ao fato de que o LOGO 
permite que determinados tópicos pos¬ 
sam ser explorados e investigados. A 
educação, para ele, passa a ser vista de 
outra forma e não apenas como um 
meio de transmissão de informações. 
"0 aluno desenvolve certas aptidões e 
aprende a raciocinar técnica e estrutura- 


EDUCA ÇÃO CHEGA AO SA TÉUTE 



"Lançaram o satélite no céu e esqueceram 
de colocar dentro dele , a educação". Pro 
fessor Di Genio, presidente do Colégio Ob 
jetivo e um dos introdutores da informática 
na Educação, no Brasil. 


Depois de introduzir a informática no 
ensino e ampliar sua rede de educação in 
forma tizada para as principais cidades do 
Brasil, o Colégio Objetivo, em São Paulo, 
introduz agora um novo projeto: a 
cação via TV e rádio. Como? Utilizando ca 
nais de transmissão de uma rádio FM e os 
recursos oferecidos pelo satélite brasileiro: 
o Brasilsat. 


0 Colégio Objetivo iniciou seu projeto 
de informática baseado em outros subpro 
jetos: o primeiro foi a introdução do com 
putador na sala de aula. Logo após, a insti 
tuição passou a utilizar o videotexto — re 
centemente, no final de 84 — e, atualmente 
está em vias de implantação do sistema de 
transmissão via rádio. 

Segundo o professor Di Gênio, presi 
dente da entidade, o objetivo principal dos 
projetos é a transmissão de programas para 
fornecer um maior apoio didático a seus 
alunos. No projeto de utilização do rádio 
está previsto o uso de dois canais da Rádio 
Eldorado e provavelmente um da Rádio Jo 
vem Pan. "0 aluno interessado tem condi 
ções de alugar o micro e o aparelho recep 
tor do próprio Colégio e acessar os progra 
mas vistos em salas de aula para sua "mini 
central receptora", afirmou o professor Jo 
sé A. Nasser. 

Quanto ao satélite, Di Gênio acredita 
que o projeto é altamente viável economi 
camente: "Nosso intento é formar uma re 
de de rádio e televisão utilizando o saté 
Ute". Segundo ele, já existem várias enti 
dades em todo o Brasil interessadas no pio 
neirismo do projeto. A perspectiva do pro 
jeto é utilizar se de um "pool" de emisso 
ras e colégios que usariam tecnologia e re 
cursos do Objetivo. "Afinal, já temos tudo, 
agora se torna mais fácil. Difícil foi o come 
ço", afirmou Di Gênio. Agora, segundo ele, 
é só utilizar se dos recursos já elaborados 
(como os 500 programas disponíveis no 
CPT — Centro de Pesquisa e Tecnologia). 
Conforme acrescentou, "o mais importan 
te é lembrar se do ser humano e das coisas 
mais importantes para sua realização pes 
soai". E filosofou: "Lançaram o satélite no 
céu e esqueceram se de colocar dentro 
dele, a educação". A.L.A. 


22 MICROHOBBY 





damente, visando à solução de proble¬ 
mas. Com o LOGO, a criança não apren¬ 
de conteúdos pré-definidos, pois ela vai 
aprendendo em função de seu interesse, 
em parcelas. Ela não precisa resolver 
problemas para as quais não está prepa¬ 
rada. Não se avança, de certa maneira, o 
sinal, forçando situações com as quais a 
criança ainda não está acostumada", ex¬ 
plicou o idealizador do projeto LOGO. 

Daí, Eduardo Chaves ressaltar que 
LOGO não é apenas uma linguagem de 
aplicação, mas sim uma filosofia de edu¬ 
cação. Esta mudança no relacionamento 
entre professor e aluno exige, na verda¬ 
de, um processo de conscientização, já 
que este foge inteiramente do processo 
formal de ensino. O novo conceito da 
filosofia LOGO busca a eliminação da in¬ 
teligência direcionadora do professor; 
"o elemento principal do LOGO é a eli¬ 
minação do que impede a criatividade" 
destaca Chaves. 

Preocupados com este choque foi 
que os pesquisadores da Unicamp pen¬ 
saram em elaborar um planejamento do 
Educon/SP, que tivesse como base a 
preocupação em treinar e sensibilizar os 
professores. "Numa primeira fase, o 
projeto prevê a elaboração do material 
didático, pesquisando, junto aos educa¬ 
dores, para observar suas necessidades. 
Na segunda etapa, prevê-se a aplicação 
do material didático numa situação nor¬ 
mal na sala de aula, sendo usado pelo 
professor, observado pela equipe de 
pesquisadores da universidade e, no fi¬ 


nal (terceira fase), a avaliação do proje¬ 
to, a elaboração do relatório e propos¬ 
tas decorrentes da experiência", conclui 
o professor da Unicamp. 

Democratizar a Educação 

Com um trabalho envolvendo psi¬ 
cólogos, pedagogos, sociólogos, pro¬ 
fessores e linguistas, a Assessoria de 
Desenvolvimento Empresarial da Embra- 
tel está fazendo chegar às escolas o 
computador. 0 objetivo do grupo é pre¬ 
parar a geração mais nova para o conta¬ 
to direto com a informática e pesquisar 
como a integração homem-máquina po¬ 
de ser feita de forma mais ampla dentro 
da educação. 

Sônia Maria Pereira Leite explica 
que no Rio de Janeiro a experiência de 
levar o computador para a sala de aula 
está sendo feita, inicialmente, no Centro 
Educacional de Niterói. Com a participa¬ 
ção do CEN, a Embratel, por escolha 
dos próprios dirigentes da escola, diri¬ 
girá este ano suas atenções para o estu¬ 
do da Matemática. Segundo ela, isso 
proporcionará aos estudantes uma me¬ 
lhor compreensão da matéria, que por 
anos e anos tem levado pais, alunos e 
professores ao desespero com "o baixo 
índice de aprendizado". 

O Centro Educacional de Niterói foi 
a primeira instituição de ensino a firmar 
convênio com a Embratel para fazer uso 
de um computador como forma de ace¬ 
lerar a aprendizagem escolar. A partir de 


então começou-se a desenvolver o pro¬ 
jeto e durante bastante tempo os profes¬ 
sores selecionados no CEI passaram por 
treinamento a fim de discutir a melhor 
maneira de tornar o convívio aluno-com¬ 
putador não traumático. Apesar dos 
educadores terem sido receptivos, Sô¬ 
nia Lima afirma que foram necessárias 
muitas discussões e realizações de semi¬ 
nários para que a influência do compu¬ 
tador na educação pudesse ser com¬ 
preendida em suas dimensões política, 
tecnológica, econômica, social e cul¬ 
tural. 

Para o trabalho junto aos meios 
educacionais, a Embratel não está im¬ 
portando programas. Todos os softwa¬ 
res aplicados à Matemática escolar es¬ 
tão sendo desenvolvidos no Brasil. Sô¬ 
nia Pereira Leite acredita que, a princí¬ 
pio, o uso de computadores em escolas 
possa causar apreensão sobre o aumen¬ 
to do custo do ensino, mas que, com o 
passar do tempo, sairá muito mais bara¬ 
to para os pais matricularem seus filhos 
em escolas que fazem uso da tecnolo¬ 
gia, porque o aprendizado será mais rá¬ 
pido. Ela defende que haverá o baratea¬ 
mento da educação num futuro próxi¬ 
mo, "tal como aconteceu com o rádio 
de pilha, que inicialmente era caro mas, 
com a disseminação de seu uso, passou 
a ser um artigo acessível a qualquer 
pessoa". 


Colaboraram Fátima França e Li/ian Pasta na 
com as entrevistas no Rio de Janeiro. 


Como Colaborar com 
Microhobby 


Temos recebido várias cartas de 
pessoas interessadas em colaborar co¬ 
nosco, perguntando quais os critérios 
para publicação. Embora tenhamos usa¬ 
do, várias vezes, um anúncio da casa 
onde indicávamos como colaborar com 
Microhobby, resolvemos colocar neste 
número novas regras, de maneira a nos 
organizarmos melhor, garantindo tanto 
os interesses dos leitores, como os da 
revista Microhobby. 

Assim, colocaremos algumas re¬ 
gras, que entrarão em vigor a partir des¬ 
ta publicação. As colaborações recebi¬ 
das anteriormente serão analisadas, 
uma a uma, e entraremos em contato 
com os autores oportunamente. 

Assim, ficam estabelecidas as se¬ 
guintes regras: 

a) Os autores que enviarem cola¬ 
borações para Microhobby aceitam es¬ 
tas regras em carta anexa ao artigo. 

b) Uma vez recebida a colabora¬ 
ção, fica implícito que seu autor auto¬ 
riza a publicação de seu artigo. 

c) Os artigos passarão por uma 

_ 


triagem e os autores dos artigos aceitos 
receberão uma comunicação onde cons¬ 
tará: valor da remuneração estabelecido 
pela redação, segundo seus critérios; 
um contrato de seção de direitos auto¬ 
rais que deverá ser assinado e devolvido 
à redação dentro de, no máximo, 10 dias. 
Qualquer discordância dos termos deve¬ 
rá ser comunicada neste período. 

d) O pagamento será efetuado 
após a publicação do artigo, desde que 
o contrato tenha sido assinado. Caso o 
artigo já tiver sido publicado, o autor po¬ 
derá assinar o contrato no momento do 
pagamento. 

e) Os artigos não aceitos serão de¬ 
volvidos aos autores (inclusive material 
anexo: fitas e listagens). 

f) Os artigos e programas remune¬ 
rados serão considerados propriedade 
da Micromega PMD Ltda., podendo es¬ 
ta fazer o uso que lhe convier (inclusive 
não publicá-lo). 

g) As colaborações poderão ser: 

1) Artigo sobre assuntos relativos à 
Informática de um modo geral; 


2) Artigos sobre computadores de 
uma das seguintes linhas: TK 83/85, TK 
2000, Apple, TRS-80 ou seus compatí¬ 
veis. 

3) Programas para estas mesmas li¬ 
nhas. Junto com a listagem do progra¬ 
ma deverá vir um texto explicativo so¬ 
bre o funcionamento do mesmo, utili¬ 
zação, detalhamento, ou o que mais o 
autor achar conveniente. O computador 
utilizado deverá estar claramente indi¬ 
cado. 

h) Programas acompanhados por 
fitas serão mais facilmente analisados. 

i) O texto dos artigos ou progra¬ 
mas deverão vir datilografados ou, pelo 
menos, escritos com letra legível. 

j) Os autores asseguram a originali¬ 
dade do texto e dos programas. As fon¬ 
tes deverão ser citadas. 

Estes são os regulamentos. Toda¬ 
via, quando seu autor manifestar-se ex¬ 
pressamente por carta, poderemos estu¬ 
dar alterações, desde que sejam conve¬ 
nientes para ambas as partes. 

___ J 
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Introdução aos Interpretadores 


José Eduardo Moreira 
Wilson José Tucci 


Um dos tópicos mais interessante 
da Ciência da Computação é a constru¬ 
ção de interpretadores ou emuladores. 
Um interpretador ou emulador é um pro¬ 
grama que roda em um computador e 
faz com que esse computador simule 
um outro computador. 0 BASIC do 
TK 2000 nada mais é que um programa 
escrito em linguagem de máquina que 
simula, no TK 2000 (cuja linguagem na¬ 
tural é a de máquina de 6502), um com¬ 
putador cuja linguagem natural é o BA¬ 
SIC. Tal computador simulado é chama¬ 
do de computador virtual, pois é o que 
realmente aparece para o usuário. 

Nós vamos começar, neste artigo, a 
desenvolver um programa em BASIC 
para simular no TK 2000 um outro com¬ 
putador. Procurei escolher um compu¬ 
tador que me fosse bem familiar, práti¬ 
co, com uma arquitetura ao mesmo 
tempo simples e poderosa. Por isso es¬ 
colhi a HP-33. 

Um pouco da arquitetura 
da HP-33 

Ao projetar um simulador, o objeti¬ 
vo é fazer com que o usuário realmente 
se sinta trabalhando com o computador 
simulado. Portanto, o mais importante 
não é como funciona o computador a 
ser simulado, mas sim como ele aparece 
ao usuário, ou seja, a arquitetura exter¬ 
na é bem mais importante que a arquite¬ 
tura interna. 

A HP-33 é uma calculadora que uti¬ 
liza o sistema RPN (Reverse Polish No- 
tation) e para implementá-lo utiliza uma 
pilha operacional de 4 registradores (X, 
Y, Z e T) e um registrador adicional, o 
LASTX (figurai). 



Pilha operacional e registrador LAST X da 
HP 33. 


A HP—33 possui ainda 8 registra¬ 
dores de armazenamento de dados, nu¬ 
merados de 0 a 7 (figura 2). 



Registradores de armazenamento da HP 33. 

Como memória de programação, a 
HP-33 apresenta 49 linhas. Em cada li¬ 
nha é armazenada uma instrução com¬ 
pleta, correspondendo pressionar 1, 2 
ou 3 teclas (figura 3). 


Figura 3 


00 

01 

— 

1300 

02 

— 

1300 

03 

— 

1300 

04 

— 

1300 

48 

— 

1300 

49 

— 

1300 


Memória de programação da HP 33. 

Implementação 

A melhor maneira de implementar a 
pilha operacional é através de quatro va¬ 
riáveis (X, Y, Z e T). O registrador LAST 
X pode ser implementado por uma ou¬ 
tra variável (LX). Os registradores de ar¬ 
mazenamento devem ser implementa¬ 
dos através de um vetor R de 8 linhas 
(R (7)). 

A memória de programação pode 
ser implementada por uma matriz de 50 
linhas e 3 colunas, onde em cada célula 
vai o código da tecla correspondente 
(MP (49,2)). 

As Funções 

A HP-33 dispõe de uma série de 
funções intrínsecas que operam na pilha 
operacional ou nos registradores de ar¬ 
mazenamento. Para simular essas ope¬ 


rações, basta saber o que cada uma faz 
na pilha e nos registradores. 

Primeiramente, vamos nos preocu¬ 
par apenas com as quatro operações bá¬ 
sicas ( + ,—,*,/) e as funções de edi¬ 
ção ENTER e CLX. 

-I-: guarda o conteúdo de X e LX, 
soma o conteúdo de X com Y, guarda 
em X, baixa a pilha operacional, ou se¬ 
ja, o que estava em Z passa para Y e o 
que estava em T passa para Z. 

—: guarda o conteúdo de X em LX, 
subtrai o conteúdo de X de Y, guarda 
em X, baixa a pilha operacional. 

*: guarda o conteúdo de X em LX, 
multiplica o conteúdo de X por Y, guar¬ 
da em X, baixa a pilha operacional. 

/: guarda o conteúdo de X em LX, 
divide o conteúdo de Y por X, guarda 
em X, baixa a pilha operacional. 

ENTER: se um número estava sen¬ 
do entrado, esse número é aceito; a pi¬ 
lha operacional sobe, ou seja, o que es¬ 
tava em Z passa para T e o que estava 
em Y passa para Z e o número é copia¬ 
do nos registradores X e Y. Se nenhum 
número novo foi entrado, então a pilha 
operacional sobe como antes e o núme¬ 
ro que estava em X é copiado para Y. 

CLX: guarda o conteúdo de X em 
LX e limpa o registrador X, ou seja, co¬ 
loca 0 no registrador X. 

Rotinas de Implementação 

Antes de desenvolvermos as roti¬ 
nas para implementar as operações pro¬ 
priamente ditas, vamos apresentar duas 
rotinas que servem para configurar a tela 
do computador e apresentar o conteúdo 
da pilha operacional. Configuração da 
tela do computador: 


1000 REH INICIALIZACAO DO VIDEO 
ÍOÍO HOME 
Í020 INVERSE 
1030 V = 6 

1040 VTAB V: HTAB 6: PRINT "T:* 

1050 VTAB V ♦ 2: HTAB 6: PRINT "Z:" 

1060 VTAB V i 4: HTAB 6: PRINT -Tf!* 

1070 VTAB V + 65HTAB6: PRINT "X:* 

1080 VTAB V ♦ 8: PRINT "LAST X:" 

1090 VTAB V + 12: PRINT "DISPLAY:* 

1100 N0RHAL 
1110 RETÜRN 
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Apresentação da 
pilha operacional 


Repare que antes de imprimirmos o 
conteúdo de um registrador no seu de¬ 
vido lugar, damos um PRINT SPC ( ) 

para imprimirmos uns espaços em bran¬ 
co e limparmos o campo. 


2000 REH VISUALIZACAO DO CONTEÚDO DA 
PILHA OPERACIONAL 

2010 VTAB V: HTAB 10: PRINT SPC< 15) 

: HTAB 10: PRINT T 

2020 VTAB V + 2: HTAB 10: PRINT SPC< 

15): HTAB 10: PRINT Z 

2030 VTAB V + 4: HTAB 10: PRINT SPC( 

15): HTAB 10: PRINT Y 

2040 VTAB V + 6: HTAB 10: PRINT SPC( 

15): HTAB 10: PRINT X 

2050 VTAB V + 8: HTAB 10: PRINT SPC< 

15): HTAB 10: PRINT LX 

2060 RETURN 


Implementação das operações: im¬ 
plementaremos cada operação como 
uma sub-rotina. 

As 4 operações básicas: 



O ENTER: Entrou uma flag que in¬ 
dica se um novo número (NX) foi entra¬ 
do ou não. 


16000 REH ENTER 

16010 T = Z:Z = Y 

16020 IF ENTROU THEN 16050 

16030 Y = X 

16040 RETURN 

16050 X = NX:Y = NX 

16060 RETURN 


No próximo número desenvolvere¬ 
mos a rotina para a entrada de dados e 
poderemos, então, começar a usar a 
nossa calculadora. 
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Compactação de Números 



Uma das maiores vantagens dos 
micros compatíveis com o TRS-80, mo¬ 
delos I e III, é a possibilidade de criar um 
arquivo de dados do tipo seqüencial em 
fitas cassete. Isto permite que grande 
quantidade de dados possam ser lidos, 
processados e até gravados num segun¬ 
do gravador, no caso dos compatíveis 
com o modelo I. 

Este processo de leitura e gravação 
é razoavelmente eficiente quanto a pre¬ 
cisão, mas deixa a desejar em relação ao 
tempo gasto. Além disso, cada coman¬ 
do de leitura e gravação (INPUT 4 -1 e 
PRINT #• -1), não deve operar com os 
dados de tal forma que a soma deles (ou 
conteúdo das variáveis) ultrapasse 255 
caracteres. 

Um modo muito comum de otimi¬ 
zar estas operações é ocupar o máximo 
de bytes (no caso, caracteres) que cada 
comando permite, pois perde-se muito 
tempo esperando o byte de sincronismo 
após cada acionamento do gravador. 

Um outro modo de otimização é a 
compactação de valores numéricos. 

Inspirado nos comandos MKI$ e 
CVI do BASIC DISCO, desenvolvi uma 
sub-rotina que é capaz de compactar e 
descompactar qualquer valor numérico 
inteiro, situado na faixa de 0 até 65535, 


Toshinobu Ishida 


de modo que ocupe apenas dois bytes. 
Se desejar utilizar números negativos, 
pode-se somar e subtrair um valor cons¬ 
tante antes da compactação e depois da 
descompactação, de tal forma que ope¬ 
re na faixa de 0 a 65535 apenas na leitu¬ 
ra e gravação de dados. Da mesma for¬ 
ma, alguns números decimais podem 
ser multiplicados por múltiplos de dez 
antes e divididos por ele depois. 

O princípio de funcionamento é o 
seguinte: 

Uma característica dos números de 
base 2 (binário) é que o conjunto de ca¬ 
racteres utilizados são de 2 tipos (0 e 1). 
O mesmo ocorre com os números de ba¬ 
se 10, existindo 10 tipos de caracteres na 
sua representação (1,2,3,4,5,6,7,8,9,0). 
Quem já viu um mesmo número repre¬ 
sentado nas bases anteriormente descri¬ 
tas sabe a diferença de comprimento na 
sua representação gráfica. Esta diferen¬ 
ça fica ainda mais evidente quando com¬ 
paramos com a base 16 (hexadecimal). 

Levando este conceito adiante, o 
que aconteceria se tivéssemos 256 tipos 
diferentes de caracteres para represen¬ 
tar um número? Nos TRS-80 o comando 
CHR$ pode trabalhar com 256 tipos de 
subscritos (de 0 até 255), ocorrendo a 
mesma coisa no comando ASC. Como 


nestes micros, a instrução CHR$ faz 
exatamente o oposto da ASC (ou seja, 
transforma o código no seu correspon¬ 
dente símbolo gráfico) e ocupa apenas 
um byte, assim, foi possível montar es¬ 
tas duas rotinas. 

999 REM COMPACTACÃO 

1000 COMP$ = CHR$ (INT(COMP%/ 
256) + CHR$(COMP%/256 - 
INT(COMP%/256)*256) 

1010 RETURN 

1099 REM DESCOMPACTAÇÃO 

1100 DCOM% = ASC (RIGHT$ 
(DCOM$, 1)) + 256 * ASC (LEFT$ 
(DCOM$,D) 

1110 RETURN 

Sub-rotina 1000 

Variável de entrada — COMP% (inteiro) 
Variável de saída — COMP$ (string) 

Sub-rotina 1100 

Variável de entrada — DCOM$ (string) 
Variável de saída — DCOM% (inteiro) 

Toshinobu Ishida é aluno de Engenharia de 
Produção da Escola Politécnica da USP e faz 
estágio no Escritório S. Morita na área de 
Software e Sistemas. 



Promoção Especial para usuários de Apple 

Faça já sua assinatura da revista Microhobby e ganhe um Disquete com jogos de sua escolha da BBS — Biblio¬ 
teca Brasileira de Software S/C Ltda., a qual lhe será remetido via correio. 

Por ser um brinde de grande valor, esta promoção está limitada em 200 assinaturas, e é válida até o dia 18 de 
maio de 1985, portanto não espere, faça hoje sua assinatura. 

Ampliando cada vez mais seus espaços aos usuários de micros das linhas Apple, TRS e Color, a Microhobby é 
hoje a melhor opção aos leitores da área. A BBS tem o maior acervo de programas do Brasil, que você pode 
usar e abusar. Venha conhecer nosso sistema 'RENTASOFT e suas vantagens. 


• " ^ 

Obs.: Exepcionatmente os brindes para esta campanha só serão devidos desde que a assinatura seja enca¬ 
minhada através deste cupom; para assinaturas solicitadas através de qualquer outro cupom, anterior ou 
diferente do presente (inclusive xerox) serão remetido apenas o brinde normal (cassete). 

_____ J 


Qual a marca do seu micro?_ 

___ J 





























Facilitando o uso da tabela de figuras 
em alta resolução no TK 2000 


Gerar figuras em alta resolução usando 
vetores é um trabalho fascinante e ... cansa¬ 
tivo. Felizmente, este programa que iremos 
apresentar facilita sobremaneira o trabalho 
de gerar este tipo de figuras no seu TK 2000. 


Carlos Elias Feres 


Este programa destina-se à forma¬ 
ção de figuras em alta resolução por 
meio de vetores, no TK 2000. 

No manual deste equipamento, no 
Capítulo XIII, você encontrará a base 
teórica usada neste programa, bem co¬ 
mo exemplos da utilização de figuras 
montadas desta maneira. Também 
estão explicados, em detalhes, os co¬ 
mandos DRAW, XDRAW, SCALE, ROT 
e SHLOAD. Se você ainda não o leu, 
consulte-o para compreender a estrutu¬ 
ra deste programa e a sua utilização. 

Funcionamento 
do programa 

Em primeiro lugar, o computador 
exibe na tela uma matriz de 23 colunas, 


indicadas por letras de A a W e 11 li¬ 
nhas, numeradas de 1 a 11. Ao seu lado 
esquerdo vemos o menu indicando suas 
opções: 

(1) leva o cursor uma posição à direita 

(2) leva o cursor uma posição para 
baixo 

(3) leva o cursor uma posição à es¬ 
querda 

(4) leva o cursor uma posição para cima 

(5) plota um ponto e leva o cursor uma 
posição para cima 

(6) plota um ponto e leva o cursor uma 
posição à direita 

(7) plota um ponto e leva o cursor uma 
posição para baixo 

(8) plota um ponto e leva o cursor uma 
posição à esquerda 

(0) retorna uma posição na figura 

(9) indica o fim da figura 


Uma vez terminada a figura (opção 
9), é mostrada a tabela de valores hexa- 
^ decimais e a correspondente figura com 
rotação = 0 e escala = 1. 

O computador dá opção de conti¬ 
nuarmos ou não a plotar a mesma figu¬ 
ra, completando ou corrigindo-a, colo¬ 
cando a mensagem: 


CONTINUA FIGURA (S/N)? 


Digitando-se S, continua-se na 
mesma figura, e N inicia uma nova fi¬ 
gura. 

Os valores em hexadecimais podem 
ser copiados da tela (manualmente) e 
posteriormente utilizados numa linha de 
DATA num programa qualquer. 


Listagem 


20 OIH CDI(24Q),D(100): HGR : VTAB Ü 


(J - 1) « 1024,B: NEXT J 

180 VTAB I ♦ 4: HTA8 6 * K + 3: PRINT 

HTA8 i: PRINT "MANIPULACAO OE FI 


*<*•4 * K ♦ I;*)* 

200 NEXT I: NEXT K 

GURAS EH ALTA RESOLUÇÃO* 


30 Vl(i) = "000*:VI(2) = *100":V§(3) = 


220 FOR I = 1 T0 11 

*010":VI<4) = *110":VI(5) = "001" 


240 IF I > 9 THEN C = 15: G0T0 280 

:VI(6) = "10i":VI(7) = "0ii":VI<8 


260 C = 16 

) = "111* 


280 VTAB I + 4: HTAB C: PRINT Is NEXT 

40 DATA 8,28,62,8,8,8,16,48,126,48,1 


I 

300 VTAB 10: HTAB 2: PRINT "<0> RET0R 

6,0,8,8,8,62,28,8,4,6,63,6,4,0 


60 DATA 8,28,62,62,62,62,30,62,126,6 


NA*: VTAB 11: HTAB 2: PRINT "<9> 

2,30,0,62,62,62,62,28,8,60,62,63, 


FIH FIG": VTAB 14: HTAB i: PRINT 

62,60,0 


*INICI0=O:FIM * 

70 ABI «= *« ABCDEFGHIJKLHNOPORSTUVW* 


320 VTAB 17: HTAB 1: PRINT FIGURA 

100 FOR K = 0 T0 1 


-TABELA DA FIGURA-* 

120 FOR I = 1 TO 4 


340 VTAB 3: HTAB 1: PRINT "INICIO: 

140 EH = 8192 ♦ 128 # (3 ♦ I) - 984 * 


"•ABI: VTAB 3: HTAB 8: INPUT 

INT ((3 + I) / 8) + 6 * K + 1 


**;SII 

160 FOR J * 2 TO 7: READ B: P0KE EN + 


360 IF SII = *0" THEN TEXT : END 
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370 IF LEN (SIS) > 3 0R LEN (SIS) < 

2 THEN GOTO 340 

380 Sll = LEFTI <SI*,l): IF ASC (81* 

) ( 65 OR ASC (Sit) > 07 THEN GOTO 340 

390 S2* = HIO* (Sll,2,1): IF ASC <S2 
I) ( 49 OR ASC (S2I) > 57 THEN GOTO 34 
0 

400 IF LEN (SIt) = 2 THEN GOTO 460 
420 IF VAL ( RIGHTf (SI*,2)) > 11 THEN 
GOTO 340 

440 S2* = RIGHT* (SI*,2) 

460 Y = VAL (S2*) + 3« = ASC (Sl*) - 
48: VTA8 3: HTAfi 16: PRINT AB* 

480 VTA8 Y ♦ 1: HTAB X + 1: INVERSE : 
PRINT * *: NORMAL 
SOO GET Gt:G * ASC (6*) 

520 IF 6 ( 48 OR G > 57 THEN GOTO 50 
0 

525 IF G = 57 AMD W = 0 THEN GOTO 50 
0 

540 IF G = 57 THEN VTAB 19: GOTO 820 

560 IF G = 48 ANO U > 0 THEN GOTO 80 
0 

570 IF G = 48 THEN VTAB Y ♦ 1: HTAB 
X + l: PRINT * ": GOTO 340 
580 CDt(U) = STR* (X) + STR* (Y ♦ 10 
) + STR* (G):RA = 8192 + 128 » Y 

- 984 * INT (T / 8) + X:G = G - 

48: VTAB Y + i» HTAB X + U PRINT 

M 0 

600 RESTORE : FOR 6í = í TO 6: FOR J = 

2 TO 7: REAÜ B: IF Gí = 6 THEN POKE R 

A ♦ (J - i) * 1024 r 6 

610 MEXT J: NEXT G1 

620 IF 6 = 1 OR G = 5 THEN Y = Y - 1 

640 IF Y < 4 THEN Y = 4: GOTO 480 

660 IF 6 = 2 OR 6 = 6 THEN X = X ♦ 1 

680 IF X > 39 THEN X = 39: GOTO 480 

700 IF6 = 30RG = 7 THEN Y = Y + 1 

720 IF Y > 14 THEN Y = 14: GOTO 480 

740 IF G = 4 OR G = 8 THEN X = X - 1 

760 IF X < 17 THEN X - 17: GOTO 480 

780 U = U ♦ i: GOTO 480 

800 VTAB Y i i: HTAB X + í: PRINT * * 

:H = y-i:XiS= LEFTS <C0S(W) r 2 
>:Yii = MIDI <CDS<U),3,2):X = VAL (Xll 
):Y = VAL (Y1S) - 10: GOTO 480 
820 X = 0: FOR Ui = 0 TO U - i:Gf = RIG 
HTI (CDS(UÍ),2):G = VAL (Gl) - 48:K = 

K ♦ í: IF K = 3 ANO G = 1 THEN Ui 
= Ui - 1 

825 IF X = 3 ANO G > 4 THEN G = i:Ui = 

Ui - 1 

830 IF Ui = U - 1 ANO X = 1 THEN BTS = 

VKG) ♦ "000000": GOTO 860 

835 IF Ui = U - 1 ANO X = 2 THEN BTS = 

BTS + VS(G) ♦ "000": GOTO 860 

840 BTS = BTS ♦ VS(G)« IF X < 3 THEN NE 

XT Ui 

860 FOR I = 0 TO i:T(I) = 0: FOR N = 
i TO 4:V = VAL ( HIDS (BTS,4 » I 
+ N,i)):T(I) = T(I) ♦ V « 2 A (N 
- i):VO = VO ♦ V * 2 A (4 # I ♦ 

N - i): NEXT N: IF T(I) > 9 THEN 
TSU) = CHRS (T(I) ♦ 55): GOTO 9 
00 


880 TS(I) = STRS <T(I>) 

900 NEXT l:SS = TS(i) ♦ TS(O) ♦ " ':H 
= H ♦ i:D(H) * VO 

9i0 IF (H - í) / 10 = INT ((H - i) / 

10) THEN HTAB 11 

920 PRINT SS-:BTS = "":X = 0:VD = 0: NE 
XT Ui 

930 POXE 232,252: POXE 233,29: POXE 7 
676,1: POXE 7677,0: POXE 7678,4: POXE 76 
79,0 

935 FOR Hl = 1 TO H: POXE 7679 + Hl, D 
(Hl): NEXT Hl: POXE 7680 + H,0: HCOLOR 
= 3: ROT= 0: SCALE= i: ORAU 1 AT 
31,164 

936 HCOLOR = 5: HPLOT 31,164 

940 VTAB 14: HTAB i: PRINT "CONTINUA 
FIG? ": VTAB 15: HTAB i: PRINT "( 

S/N)?V INVERSE : PRINT " NORMAL : 

GET RS: IF RS < ) "S" AND RS < ) "N" TH 
EN GOTO 940 

960 HCOLOR = 0: FOR V = 144 TO 191: HP 
LOT i,V TO 277,V: NEXT V: VTAB 14: HTAB 1 
: PRINT "INICI0=0:FIM ": VTAB 15: HTAB i: 
PRINT " 

1000 IF RS = "N" THEN FOR Li = 5 TO 
15: VTAB Lí: HTAB 18: PRINT " 

": NEXT Lt:y = 

0:H = O: GOTO 340 
1020 H = O: GOTO 500 


r ->v 


TENTE ESTA 


15 

REH TENTE ESTA / TK 2000 

20 

HGR2 



25 

FOR H = 

0 TO 

7 

27 

HCOLOR 

= H 


30 

FOR X = 

0 TO 

250 

35 

Y = INT 

(160 

* RND (D) 

40 

HPLOT X, 

r Y TO 

X + 3,Y + 3 

50 

NEXT X 



55 

NEXT H 



ÓO 

GOTO 25 




V_ J 
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= = = = =-^ Sempre o melhor 

programa para você 



TELECOMUNICAÇÕES 

• Programas para Projeto 
Cirandão 

• Programas para Video¬ 
texto da Telesp 

• Placas RS-232 da 

Arias Microcomunicações 
para TRS-80 e Apple 

• Modens 


SOFTWARE 


O maior acervo de prog ramas 
do Brasil que você pode: 
testar, usar, administrar, 
programar, desenhar e jo¬ 
gar livremente. 


Disponíveis para as linhas: 
Apple, TRS-80 e Sinclair 


SUPRIMENTOS 


LIVROS 

• Microproces. Z80 e 6502 

• Cursos de Basic 

• Programação estruturada 

• Linguagens Basic, Cobol, 
Pascal 

• Circuitos Eletrônicos 

• Jogos Inteligentes 

• Revistas 


• CPU's das linhas: 

Apple, TRS-80 e Sinclair 

• Interfaces para: 

Disco, Impressoras, CP/M, 
80 colunas e Expansão de 
memória 

• Drives para vários modelos 

• Monitores e impressoras 


• Formulários contínuos 


• Diskettes 


• Etiquetas 


• Fitas para impressoras 


Av. Brigadeiro Faria Lima, 1390 

8 o And. Cj. 82 Tels.: (011) 813 6407 - 210 1251 

01452 - J. Paulistano - São Paulo - SP 





































































LIVROS 

Ana Lúcia de Alcântara 


O Computador na Escola 
Linguagem BASIC 
e Programa 
para Matemática 



utqdof 


AU-fOUSStf 

fiRNANDtZ 




prograw^ 


0 tema introdução do compu 
tador na educação tem levantado 
inúmeras polêmicas nos últimos 
anos no Brasil. "De que maneira o 
computador pode ser um instru 
mento enriquecedor nas mãos de 
um educador?", é a pergunta de 
muitos. Do ponto de vista dos a/u 
nos é uma maravilha tecnológica 
que os fascina. Para os educadores 
é um tema que ainda gera algumas 
questões relevantes: o computador 
na escola introduz uma nova con 
cepção de aprendizado? Esta pode 
vir a ser melhor que a tradicional? 
Os métodos tradicionais de ensino 
devem ser abolidos a partir da intro¬ 
dução do microcomputador na sala 
de aula? Ou, os dois podem convi¬ 
ver em bom dima de "amizade "?... 
Estas são questões que serão res 
pondidas com o tempo. No Brasil, o 
tema é recente e começa a gerar ini 
ciativas muito válidas por parte de 
professores preocupados com a 
questão. 

Ê o caso dos autores deste li¬ 
vro. Preocupados e participantes 
em projetos como o Ciranda, que 
está sendo desenvolvido pela Em 
bratel — Empresa Brasileira de Tele 
comunicações, os autores elabora 
ram um livro voltado à aplicação do 
micro no aprendizado da linguagem 
BASIC. Porém, com um novo con 
ceito: a preocupação em ensinar 


tadas com tabelas de códigos ASCII 
mostrando sua correspondência 
com os caracteres e seus valores bi 
nários e decimais. Tudo seguido de 
exercícios indagadores sobre ques 
tões atinentes ao capítulo. Termi 
nada a amostragem da linguagem 
BASIC — utilização das funções, a 
manipulação de blocos de dados, 
utilização da tela de vídeo, coman 
dos e instruções especiais, são aí 
guns dos itens tratados nos nove 
capítulos iniciais —, os autores par 
tem para a parte didático pragmá 
tica do aprendizado. 0 objetivo prin 
cipaí desta segunda parte é desta 
cado logo na introdução: "nosso 
objetivo é fazer com que você per 
ceba que o microcomputador pode, 
e deve ser entendido como mais um 
recurso que pode ser utilizado em 
seus estudos. 0 microcomputador, 
não é um fim em si mesmo, mas sim 
um meio, que oferece novas for 
mas para estudar e resolver proble 
mas". 

Dessa forma, Youssef e Fer 
nandez expõem 30 programas que 
tratam de conteúdos de Matemá 
tica da 5? série do primeiro grau à 3? 
série do segundo grau, destacando 
que "antes de passar à produção do 
programa propriamente dito, deve 
mos analisar bem o conteúdo do 
problema a ser resolvido, passando 
só a seguir, à montagem do algo 
ritmo". 

Na conclusão de sua proposta 
inovadora, os autores respondem, 
enfim, qual deve ser a finalidade da 
utilização do computador na educa 
ção: 

— "0 uso do micro permitirá a 
análise de problemas a partir de da 
dos cuja manipulação seria difícil da 
forma convencional. Ele possibilita 
rá a programação da resolução de 
problemas para sucessivas execu 
ções, tornando possível a desco 
berta de erros. 


Antonio Nico/au Youssef 
Vicente Paz Fernandez 

Editora Scipione 


BASIC do ponto de vista matemá 
tico e não técnico — voltado às ins¬ 
truções e conceitos da programa 
ção. 0 importante é estudar "o con 
teúdo programático tradicional" da 
Matemática, em conjunto com a di 
dática de ensino de uma linguagem 
de programação — no caso, o BA 
S/C. 

A partir daí surgiu a coleção "0 
Computador na Escola", com o pri 
meiro livro da série tratando do te 
ma "Linguagem BASIC e progra 
mas para Matemática". 

Dividido em duas partes, o pri 
meiro volume preocupa se em dar 
ao professor de Matemática, que 
tem um micro à sua frente na sala 
de aula, um bom apoio didático e de 
orientação aos seus a/unos. De for 
ma instrutiva que lembra os nossos 
livros de Matemática, Física e Quí 
mica, entre outros do antigo Cole 
gial (hoje 2? grau) — os autores 
apresentam, inicialmente, o históri 
co do processamento de dados (e 
não do computador, como se con 
vencionou apresentar), falando so 
bre o passo dado, após a Revo/u 
ção Industrial, para a automatiza 
ção da sociedade; logo a seguir apa 
rece o hardware e o software; de 
monstra se a importância da UCP 
— Unidade Central de Processa 
mento, das memórias e das unida 
des de entrada e saída, comp/emen 
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HOBBSHOP 


TK-2000 na Matemática 


Victor Mirshawka 
Editora Nobel 



Dentro de seu estilo próprio, 
caracterizado em livros anteriores, o 
autor dessa vez coloca ao usuário 
do micro TK-2000 os caminhos pa¬ 
ra a aplicação desse equipamento 
em Matemática. 

No livro, dividido em diversos 
itens, Mirshawka apresenta progra¬ 
mas em BASIC, comentados, onde 
mostra as aplicações em diversas 
áreas da Matemática. Desde o uso 
do equipamento para o cálculo de 
números perfeitos, a lei dos senos, 
operação com matrizes, até núme¬ 
ros complexos e divisão sintética de 
polinómios por binômio de 1° grau. 
A.L.A. 



HOW TO COMPUTERIZE YOUR HOME 
USINE YOUR APPLE COMPUTER 


Acima de tudo, "The Apple 
House" é um "livro-manual", gos¬ 
toso e fácil de ser lido, dirigido para 
os inventivos usuários dos Apple. 
Dividido em quatro partes mais os 
apêndices, o livro foi escrito com o 
objetivo de encaminhar o usuário- 
iniciante nos meandros da criativi 
dade app/emaníaca. Dessa forma, o 


The Apple House 


John Blankenship 
Editora Prentice-Hall 


autor introduz o leitor no hardware, 
software, sistemas e vocabulário 
concernentes aos Apple. 

Ainda sem tradução em Portu¬ 
guês — já que os representantes da 
Prentice-Hall no Brasil estão ape¬ 
nas divulgando e introduzindo os li¬ 
vros no mercado brasileiro — o "The 
Apple House" é um livro onde o au¬ 
tor apresenta as características do 
micro através de fluxogramas e ilus¬ 
trações acerca de sua arquitetura, 
entre outros tópicos. 

Os editores caracterizam o livro 
como sendo "um caminho para 
economizar tempo e dinheiro, onde 
o usuário pode usar o micro para 
controlar sua casa, as luzes, o tele¬ 
fone, etc. . .". 

"The Apple House" pode ser 
encontrado em São Paulo, na Livra¬ 
ria Litec à Rua dos Timbiras, 257 ou 
pelo telefone (011) 220.8983. A.L.A. 


A MICROHOBBY man¬ 
tém uma seção de classifi¬ 
cados por cidades, onde 
sua empresa pode anun¬ 
ciar a preços acessíveis e, 
atingir nossos leitores de 
toda região. Este é o meio 
mais barato de sua empre¬ 
sa ter uma sustentação 
publicitária junto a um pú¬ 
blico leitor específico da 
área de Micros. 


Em anúncios padronizados 
em box de 8,5 x 3,5 cm, o 
leitor encontrará ofertas 
de serviços, produtos, 
software, hardware perifé¬ 
ricos e outros itens, lista¬ 
dos por cidades. 


Espaço adequado para: 
Escolas, 

Lojas de produtos 
para micros, 
Manutenção de 
micros. 

Livrarias. 


Para maiores informações 
consulte-nos 

Micromega P.M.D. Ltda. 
Av. Angélica, 231814° and. 
Caixa Postal 54096 
CEP: 01296 
Fone: (011)255-0366 
São Paulo — SP. 




































AULA II 

Algumas instruções do 6502 



Gustavo Egídio de Almeida 


Acumulador 

0 acumulador é um registro no qual dados são arma¬ 
zenados, tendo um comportamento similar a um endereço 
de memória qualquer. 


Tabela 1 - BRK 

código usado 00 

Bytes usados 1 


Figura 1 


1? 

2? 

LDA $32 

LDA $32 

STA $800 


Nos exemplos da figura 1, ambos armazenam dados 
em determinadas posições, sendo que o primeiro introduz 
no acumulador o número "32" (em hexa) e o segundo co¬ 
loca o mesmo número numa posição de memória deter¬ 
minada (o mnemónico "STA", significa STORE — arma¬ 
zenarem certo local). 

O acumulador, porém, não pode ser simplesmente 
comparado a um endereço de memória onde se armaze¬ 
nam dados. Por ser um registro bastante flexível recebe um 
destaque especial. 

Além de ser utilizado como área de armazenamento 
temporário, quando dados são movidos de um endereça¬ 
mento para outro, é também requisitado ao se efetuar ope¬ 
rações lógicas e aritméticas. 

Como veremos nas próximas lições, o acumulador tem 
uma importância vital para o 6502. 

Set de Instruções do 6502 

Antes de iniciar a descrição das instruções que per¬ 
tencem ao microprocessador 6502, devemos lembrar que: 
para utilizar o Assembly, seu computador deve estar no 
MODO MONITOR (MD). Para entrar neste MODO, você 
deve utilizar a instrução LN ou CALL-159 (CALL-151 nos 
computadores da linha APPLE). 

Automaticamente o MD introduzirá no vídeo o símbo¬ 
lo a (arroba) com o cursor de entrada de dados ao seu lado. 

A partir desse momento, seu computador já está em 
MD e você poderá entrar com quaisquer dados em hexade¬ 
cimal, representando os dados e instruções mnemónicos, 
que formarão um programa em Assembly. 

Existe também a possibilidade de se entrar direta¬ 
mente com os mnemónicos, porém este método não é 
muito utilizado pela maioria dos usuários. 

A partir de agora, podemos iniciar a descrição das ins¬ 
truções que compõem o 6502. 

Instruções do Microprocessador 6502 

BRK — força um BREAK (interrupção de um progra¬ 
ma) tabela I. 


A instrução "BREAK" será a primeira a ser analisada 
porque é uma das mais simples de se compreender. 

Seu uso em programas de linguagem de máquina é 
bastante limitado, pois no exato momento em que essa ins¬ 
trução é encontrada, a execução dos programas em anda¬ 
mento é imediatamente interrompida. 

Apesar de o BRK (BREAK) não ser muito usado em 
um programa Assembly, ao analisarmos a maioria das lista¬ 
gens de mnemónicos nós encontramos agrupamentos des¬ 
tas instruções de forma regular ou não. 

Esses agrupamentos de "BREAKs" na certa não fa¬ 
zem parte de um programa, o que significa que eles podem 
estar dispostos aleatoriamente entre outras instruções 
quaisquer, em uma área ou bloco não utilizado pelo pro 
grama. Ou então, esse bloco que pensamos não ter utili¬ 
dade alguma pode fazer parte de uma tabela de figuras 
que, em determinado ponto, é chamada pelo programa 
principal. 

Examine a listagem da figura 2. 


Figura 2 


0800 

- A208 

LDX#$08 


0802 

- A93A 

LDA # $3A 


0804. 

-8D0010 

STA $1006 

1 Bloco 

0807 

- A916 

LDA# $16 


0809 

-4C 00 09 

JMP $0900 


080C 

-00 

BRK 


0800 

-202020 

JSR $2020 


0810 

-202021 

JSR $2120 


0813 

-21 21 

AND ($21,x) 


0815 

-21 21 

AND ($21,x) 

2? Bloco 

0817 

-00 

BRK 


0818 

-00 

BRK 


0819 

-00 

BRK 


081A 

-00 

BRK 


081B 

- A9 50 

LDA # $50 


081D 

- A260 

LDX # $60 


081F 

-8D0011 

STA $1100 

3? Bloco 
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Este “Pedaço" de listagem tomado como exemplo, 
pode ser dividido em blocos, se analisado com atenção. 
1? Bloco: Este bloco se consiste no programa propriamente 
dito. 

2? Bloco: Na área que forma este bloco pode conter uma 
tabela de figuras ou qualquer outro tipo de tabela para for¬ 
mar endereços, etc. . . 

3? Bloco: Idem ao 1? bloco. 

Ao observarmos o 1? bloco não notamos nada de es¬ 
tranho, pois as instruções têm certa coerência entre si. 

Já no segundo bloco essa coerência não mais existe, 
pelo menos em termos de continuidade de um programa, 
o que nos faz deduzir que este bloco forma uma tabela ou, 
então, não serve para nada e tem apenas como função 
preencher espaço entre parte de um programa e outro. 

Já no terceiro bloco, percebemos novamente uma 
coerência lógica entre as instruções, e que nos leva a dedu¬ 
zir que faz parte de um programa. 

"A instrução BRK não tem praticamente nenhuma uti¬ 
lidade num programa em linguagem de máquina." 

Pelo que acabamos de observar, esta fase não é intei¬ 
ramente verdadeira. Numa listagem, a instrução, BRK tem 
muita utilidade, porque ela funciona como um verdadeiro 
ponto de separação entre blocos distintos de um pro¬ 
grama. 

À primeira vista, a análise de uma listagem pode pare¬ 
cer complicada para o iniciante, porque para sua execu¬ 
ção é exigido um mínimo de prática pelo programador. Nas 
próximas lições você verá com mais detalhes algumas das 
instruções presentes nesta listagem. 

LOA — Carrega acumulador com a memória (tabela 
II). 


Tabela II - LDA 

Código Usado 

Formato 

Bytes Usados 

A9 

LDA# OPER 

2 

AS 

LDA OPER 

2 

BS 

LDA OPER, X 

2 

AD 

LDA OPER 

3 

BD 

LDA OPER, X 

3 

B9 

LDA OPER, Y 

3 

Al 

LDA (OPER, X) 

2 

BI 

LDA (OPER), Y 

2 

OPER = Operando 


A instrução LOA tem por objetivo armazenar no re¬ 
gistro acumulador dados ou conteúdo de memória. 

Essa instrução pode ser encontrada em oito formata¬ 
ções diferentes, o que a torna bastante versátil. 

LDA # OPER — endereçamento imediato. 

Nesta versão o acumulador é carregado diretamente 
com o dado (# é usado para indicar o modo de endere¬ 
çamento imediato e o símbolo $ ou as aspas simples indi¬ 
cam valores hexadecimais) (figura 3). 


Figura 3 

LDA '05' 

o acumulador é carregado com o valor '05' 

LDA OPER — endereçamento direto (página zero). 

0 acumulador, neste caso, é carregado com o conteú¬ 
do do endereço em questão, sempre precedido do sím¬ 
bolo $ (figura 4). 

Figura 4 


LDA $50 

1 byte para o 
endereço 

o acumulador é carregado com o conteúdo 
do endereço $50 


Este endereço, citado no exemplo acima ($), faz parte 
da página zero do mapa da memória. A página zero é utili¬ 
zada para as variáveis do sistema e vai do endereço $ a 
$00FF. 

LDA OPER, X — endereçamento indexado (página 
zero). 

Aqui está uma instrução diferente das que nós esta¬ 
mos acostumados a ver, por usar o modo de endereçamen¬ 
to direto indexado. Ela é indexada por usar os registrado¬ 
res X e Y. 

Para se carregar no acumulador um valor qualquer, 
devemos não apenas olhar o endereço que vem logo após à 
instrução LDA, mas também o valor do registrador X que 
funciona, neste caso, como um contador (figura 5). 


Figura 5 


LDA $50, X carrega 

endereço especificado + 

acumulador com o conteúdo do 

valor do registrador 


Supondo que seja '03' o valor do registrador X, o 
acumulador vai ser carregado com o conteúdo do ende¬ 
reço formado da seguinte maneira: 


$ 50 + '03' = $ 53 — novo endereço formado 


Podemos então concluir que o valor a ser colocado no 
acumulador será do endereço $ 53. 

As instruções indexadas possuem muitas vantagens 
sobre as demais, como a economia de espaço e tempo num 
programa. O uso do indexador X como contador, acopla¬ 
do a uma instrução LDA, possibilita a criação de inúme¬ 
ras sub-rotinas muito úteis num programa em Assembly. 

LDA # OPER — endereçamento direto (absoluto) 
(operando com dois bytes). 

Similar à segunda operação LDA de endereçamento 
direto apresentada, com a diferença de não envolver ape¬ 
nas um byte na operação (página zero), e sim dois bytes 
(modo absoluto) (figura 6). 


Figura 6 


LDA $0300 

o acumulador é carregado com o conteúdo 

dois bytes 

do endereço $0300 

para o 


endereço 



LDA OPER, X — endereçamento indexado por X 
(absoluto). 

(operando com 2 bytes) 

LDA, Y — endereçamento indexado por Y (absoluto), 
(operando com 2 bytes) 

As duas instruções citadas acima, podem ser explica¬ 
das como sendo uma só, sendo que a única diferença ocor¬ 
re com o indexador que num caso é o X e no outro o Y. 


LDA $ 300, X LDA $ 0310, Y 


Supondo que o valor adotado tanto por X como por Y 
seja 05, para se achar o novo valor do endereço, cujo con¬ 
teúdo será armazenado no registrador A, basta que se efe¬ 
tue a seguinte soma: 


($0300 + '05') = $305 ($0310 + '5') = $315 


ou seja, no 1? caso será colocado no acumulador o con¬ 
teúdo do endereço $ 305 e no segundo caso o conteúdo do 
çndereço $315. 

LDA (OPER, X) — endereçamento indireto (indexado 
porX). 

Esta versão, para a instrução LDA, é bastante dife¬ 
rente das demais, pois o endereço no qual o conteúdo será 
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introduzido no acumulador não está dentro da própria ins¬ 
trução, mas em qualquer ponto da memória. Por isso, este 
modo é chamado de endereçamento. 

Exemplo: LDA (05,X) 

0 valor de X deve ser adicionado ao operando. Su¬ 
pondo X = 14, temos: '05' + '14' = '19' 

Obtendo esse valor ($ 00 19) e seu sucessor ($ 00 11), 
deveremos verificar o conteúdo destes dois endereços que 
representam respectiva mente o byte menos e mais signifi¬ 
cativo do endereço final. 

A partir deste endereço formado, obteremos um novo 
e definitivo conteúdo que será armazenado no acumula¬ 
dor (figura 7). 


Figura 7 


Esquema das Etapas da Instrução 

Operando '05' 

Registro X '14' 

$ '19' 

(página zero) 

Memória 

Conteúdo 

$0000 

30 

$0019 

#45 $1045 

$001A 

#10 endereço 


formado 

$1045 

#50 

Portanto, o acumulador receberá o valor \ 50 


LDA (OPER), Y — endereçamento indireto (indexado 
por Y). 

Neste modo, a instrução LDA usa como indexador o 
registro Y: Exemplo: 

LDA (01), Y 

Essa instrução pode ser explicada por etapas: 

— Tomamos o valor contido entre parênteses ($01) e seu 
consecutivo ($02), obtendo assim um byte para cada en¬ 
dereço. 

— Supondo que o conteúdo de $01 e $02 são '32' e 'IV, 
eles representam, respectivamente, o byte menos e mais 
significativo do endereço formado, que é $1132. 

— Somando-se o byte menos significativo desse endere¬ 
ço, formado com o valor do registro Y, obteremos o ende¬ 
reço final ($1132 -l- '00Q7' = $1139). 

Portanto, será colocado no acumulador o valor con¬ 
tado no endereço $1139. 

LDX — carrega o registrador X com a memória (tabela 
III) 


Tabela III - LDX 

Código Usado 

Formato 

Bytes Usados 

A2 

LDX# OPER 

2 

A6 

LDX OPER 

2 

B6 

LDX OPER, Y 

2 

AE 

LDX OPER 

3 

BE 

LDX OPER,Y 

3 


LDY — carrega o registrador Y com a memória (ta¬ 
bela IV). 


Tabela IV — 

LDY 

Código Usado 

Formato 

Bytes Usados 

A0 

LDY# OPER 

2 

A4 

LDY OPER 

2 

B4 

LDY OPER, X 

2 

AC 

LDY OPER 

3 

BC 

LDY OPER, X 

3 


Explicaremos as instruções LDX e as instruções LDY 
como sendo uma só, lembrando que a única diferença en¬ 
tre elas se consiste nos registros, pois num caso é X e no 
outro Y. 

LDX#OPER ou LDY#OPER - 

Idem à instrução LDA# OPER, tendo como destino o 
registrador X ou Y. 

LDX OPER ou LDY OPER - 

Idem a instrução LDA OPER (página zero), tendo co¬ 
mo destino o registrador X ou Y. 

LDX OPER, Y ou LDY OPER, X 

Idem à instrução LDA OPER, X (página zero), tendo 
como destino o registrador X ou Y. 

LDX OPER ou LDY OPER 

Idem à instrução LDA OPER (absoluto), tendo como 
destino o registrador X ou Y. 

LDX OPER, Y ou LDY OPER, X 

Idem à instrução LDA OPER, X ou LDA OPER, Y 
(absoluto), tendo como destino o registrador X ou Y. 

Na próxima lição veremos outras instruções. 




TENTE ESTA 


5 REM 

ÍO FOR B = 1 TO 16 

15 E = INT ( RND ü) * 7 + 1): IF E = 

4 THEN GOTO 15 
20 HGR : HC0L0R = E 

25 DRAU 10 AT 100 * RND (i),100 « RND (1) 
30 R0T= 10: SCALE= B + 5 
35 NEXT B 
45 G0T0 5 


V_ J 
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GEODÉSICAS 


"Geodésicas são linhas que ligam imagina- 
riamente dois pontos da supefície da terra e 
que tem o menor comprimento possível. 
Neste artigo, aprenderemos como calcular 
seus comprimentos a partir das coordenadas 
geográficas dos pontos considerados." 


Renato da Silva Oliveira 


Muitas vezes, algo aparentemente muito simples, 
com a medida da distância entre dois pontos, pode ser de 
fato bastante complicado. 

0 próprio conceito de distância é fundamentalmen¬ 
te complexo. Se você duvida, tente dizer a si mesmo o que 
você entende por distância. 

Será que distância só existe associada a dois pon¬ 
tos, ou será independente? Distância é um conceito físico 
ou puramente matemático?. 

Quantas e tantas outras questões fundamentais po¬ 
dem nos surgir, referentes apenas a noção de distância. 

Não vamos nos deter nessas questões, pois quase 
certamente não sairíamos do lugar. Queremos abordar algo 
mais prático: a medida da distância entre dois pontos. 

Saltando por sobre muitas (e muitas mesmo!) con¬ 
siderações que poderíamos tecer sobre a noção de dis¬ 
tância, vamos caracterizá-la de um ponto de vista físico. 
Depois adotaremos, sem questionamento, um modelo ma¬ 
temático que se adapte a essa caracterização. 

Todos nós temos intuitivamente a idéia de distância 
como uma grandeza indicativa do espaço entre dois pon¬ 
tos (fig. 1). Imaginando dois pontos de uma superfície 
qualquer, sabemos que podemos ir de um ao outro por 
vários caminhos distintos sobre a superfície (fig. 2). Vamos 
chamar de distância entre os pontos A e B o caminho mais 
curto que podemos percorrer sobre a superfície! Por ''ca¬ 
minho mais curto" devemos entender aquele que pode¬ 
mos percorrer no menor intervalo de tempo, deslocando- 
nos sempre com a mesma velocidade. 



Num plano é fácil calcular a distância entre dois 
pontos. Basta fixarmos um referencial cartesiano (fig. 3) 
qualquer e usarmos o teorema de Pitágoras. 


d 2 = (Ax ) 2 + (Ay) 2 onde: Ax = x 2 — x, e 
d =\/ (Ax ) 2 -I- (Ay ) 2 Ay = y 2 — y 1 


Numa outra superfície, o cálculo de distância não é 
assim tão simples. Imagine por exemplo, uma montanha 
com o cume semelhante a uma semi-esfera (fig. 4). Qual 
será o menor caminho para se ir de A até B? Apelando para 
a intuição podemos concluir que é o caminho que passa 
pelo cume! Mas qual será o sistema de referência que nos 
permite calcular mais facilmente a distância? Por se tratar 
de uma superfície esférica, podemos utilizar coordenadas 
esféricas (fig. 5). 0 ponto genérico P fica determinado por 
dois ângulos (ò e0) que são suas coordenadas. O ângulo 
<5 é seu ângulo polar e o ângulo O é seu azimute. Mesmo 
tendo as coordenadas esféricas dos pontos A e B, não po¬ 
demos ainda usar o Teorema de Pitágoras. 

d *\/(Ax ) 2 + (Ay ) 2 ou d *V(A <T)2 + (A0)2 ' 

O que nos permite, então, calcular a distância entre 
os dois pontos? Essa é a questão que se apresenta quando 
temos que determinar a distância entre duas localidades na 
superfície da Terra (suposta esférica). Por exemplo, qual a 
distância entre São Paulo e Paris (fig. 6).? 



Figura 3 


Cada ponto na superfície da Terra é determinado 
por sua latitude (4>) e por sua longitude ( X ). A latitude [<t>) é 
um ângulo que compreende o arco de círculo de longitude 
que vai do Equador até o ponto considerado. Ela é contada 
de 0 a 90 positivamente para o Norte e negativamente para 
o Sul (fig. 7). A longitude ( X ) é um ângulo que compreen¬ 
de o arco do Equador que vai do Meridiano Fundamental de 
Greenwich até o círculo de longitude que passa pelo pon¬ 
to. Ela é medida de 0 o a + 180° para Oeste de 0 o a —180° 
para o Leste (fig. 8). 
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É fácil ver que o sistema de latitudes e longitudes 
constitui-se num sistema de coordenadas esféricas. Para 
cada#, podemos obter um único ângulo polar, dado por 
(90 — 0). Também o azimute fica univocamente determi¬ 
nado pelas longitudes, sendo obtido por (180 + X). Obser¬ 
ve a figura 9 e verifique a validade dessas duas equações! 

As coordenadas de São Paulo são# 5 = —23° 32 
36" e X S = +46° 3 7 59" e as de Paris são# p = 48° 52' 
18" e P = —2 o 20' 10". A partir delas devemos obter a 
distância entre as duas cidades. 

Antes de atacar diretamente o problema, voltemos a 
analizar o processo para a determinaç ão das distânci as 
num plano (fig. 10). Escrevíamos: d = V Sx 2 + úy 2 ’ . 
Vamos tentar expressar a distância entre os pontos P, eP 2 
através das distância r« e r, entre eles e a origem 0; e do ân¬ 
gulo formado por elas (fig. 11). Isso equivale a trabalhar¬ 
mos com coordenadas polares no plano, ao invés de usar¬ 
mos coordenadas cartesianas. 

Partindo da equação d =V x 2 + y 2 ‘ tentemos 
então obter uma relação do tipo d = f (r 1# r 2 , a ). 

d 2 = A x 2 + Ay2 = (x 2 — x^ + (y 2 — y^ 2 

d 2 = x 2 + x 2 — 2. x, . x 2 + y 2 + y 2 - 2. y 1 . y 2 

d 2 = rf + x\ — 2. (x, . x 2 -l- . y 2 ) 

x 1 = r, . cosa! e 

x 2 = r 2 . cosa 2 

y, = r, . sen a! 

y 2 = r 2 . sen a 2 

x i • x 2 = r., . r 2 . cosc*! . cosa 2 
y, . y 2 = r i • r 2 • sen a, . sena 2 
d 2 = r^ -»- r| — 2 . r 1 . r 2 . (cos a ^ . cosa 2 + 

+ sena, . sena 2 ) 

cos ( a ! — a 2 ) = cos 

d 2 =Vr? + — 2. r., . r 2 . cosâ 



Essa última equação é a lei dos cossenos da trigo¬ 
nometria plana. A partir dela, obtemos a distância em fun¬ 
ção de r lf r 2 e ot . Vamos tentar obter algo análogo a ela, 
para "triângulos" construídos com círculos máximos na 
superfície de uma esfera (fig. 12). Consideremos um triân¬ 
gulo esférico de vértice A, B e C. Podemos, com ele, fazer 
a construção apresentada na figura 13. O segmento AD é 
tangente ao arco ceo segmento AE é tangente ao arco b 
no vértice A. Escrevendo a "lei dos cossenos", da trigono¬ 
metria plana, para o lado DE dos triângulos ADE e ODE 
obtemos: 

DE 2 = AD 2 -I- AE 2 - 2 . AD . AE . cosÂ 
DE 2 = OD 2 + OE 2 - 2 . OD . OE . cosâ 

Igualando estas duas equações obtemos: 

OD 2 + OE 2 - 2 . OD . OE . cosA = 

AD 2 + AE 2 - 2 . AD . AE . cosÂ 
Reagrupando os termos, ficamos com: 

OD 2 - AD 2 + OE 2 - AE 2 + 2 . AD . AE . cosÂ - 

2 . OD . OE . cosâ = 0 

OA 2 + OA 2 + 2 . AD. AE . cosÃ = 

2 . OD . OE . cosâ 

Trocando o primeiro pelo segundo membro e reagrupando 
novamente, temos: 

2 . OE . OD . cosâ = 2 . OA 2 + 2 . AD . AE . cosÂ 

cosâ = OA 0^ + _AD AE cosÂ 
OD' OE OD ' OE‘ 

Observando novamente a figura 13, notamos que: 

Q.A = qos c; = cos 6; ^5 = sen c; = sen b . 

OD OE OD OE 

Podemos então escrever: 

cos â = cos b . cos c + sen â . sen c . cos Ã 

Essa é a "lei dos cossenos" da trigonometria esfé¬ 
rica. Ela nos permite calcular o valor de um arco de um 
triângulo esférico se conhecermos o ângulo diedro oposto 
a ele e os outros dois arcos. 

Voltemos agora ao problema da determinação de 
distância entre dois pontos (PI e P2) da superfície terres¬ 
tre. O problema, na verdade, é determinar o valor do arco 
(x) de um triângulo esférico (fig. 14). Aplicando a "lei dos 
cossenos" ao arco x obtemos: 

cosx = cos (90- 0 1 ). cos (90— # 2 ) + sen (90— #!>. 

-I- sen (90— #,). sen (90— # 2 ). coslAXl 

cos x = sen #! . sen 2 + cos #, . cos 2 . coslAXl 

x = arccos (sen . sen # 2 + cos (t> y . cos # 2 . cos |AX|) 

Com o valor de x determinado, podemos calcular a 
distância através de uma "regra de três" simples. 

Chamando de Rt ao raio médio da Terra, escreve¬ 
mos: 

2 . rd -2. . Rt 


d = x. Rt 
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adotando 6.370 Km como valor de Rt, ficamos com: 
d = 6.370 Km 


A situação é ilustrada na figura 16. É fácil verificar 
que a distância D é o dobro do seno do ângulo x/2 multi¬ 
plicado pelo raio x médio da Terra: 


Agora, obtido o processo para determinação da dis¬ 
tância entre dois pontos da superfície da Terra, podemos 
transferí-lo para um programa. Isso pode ser feito de mui¬ 
tos modos. Um dos modos é o que mostramos a seguir: 


0ÜREM r GEQDESICPiS H 
10 DIM B(4) 

15 LET Iê="IMTRODUZP 
20 FOR P =0 TO 1 

25 PRIMT lê; " P LPTITUDE DO : ’;P 


+ i; 


LüCPL !S 


30 G0SU8 120 


4-0. 

LET 3 (2*P + 1) =B 

50 

PRIMT I$; 

"H LONGITUDE DO ", 


‘ ; P + I; LüCPL " 

55 

GO SUB 120 


60 

LET Bl24H423=B 

6 5 

PR IMT 


70 

MEXT P 


75 

CL 5 


60 

GOTO 350 


120 

REM ENTRADA DE DnDOSffc 

125 

PRIMT lê 

"OS GRRUS : " 

130 

INPUT B 


135 

PRIMT B 


14-0 

PRIMT lê; 

"OS MINUTOS:"; 

14-5 

IMPUT C 


150 

PRIMT C 


155 

PRIMT lê; 

"OS SEGUNDOS : " 

160 

IMPUT D 


165 

PRIMT D 


170 

PPUSE 50 


175 

Lb ? B = í 5 4- ( C4C/50 ) /603 *PI/16 

0 



ISO 

RETURN 


350 

Lb ! C=PbS 

(B (43 -B(23 3 

360 

LET C = CG5 

C*COS B(13 *00 S ts( 

3) +SIN B(13*SIN 3(3 3 

370 

Lfc ! C=fiC5 

(C) _ 

b 3 to 

PRIWT PT 


MT RE 

H : = : P: 0 T >. 

□ CR JS E* : :I ; I 

MT C 

* b 4 b 3 7 000 4 



Muitos outros problemas, particularmente de Astro¬ 
nomia, são solucionados com auxílio da trigonometria es¬ 
férica. Além da "lei dos cossenos" que deduzimos, existe 
ainda uma "lei dos senos" análoga a da trigonometria pla¬ 
na. Não nos interessa deduzí-la aqui, mas apenas por curio¬ 
sidade, vamos enunciá-la. Observe a figura 15 e acompa¬ 
nhe a equação: 

sen Â _ sen B _ sen C 

sen â sen b sen c 

As aplicações práticas do cálculo de distâncias na 
superfície da Terra são inúmeras. Imagine-se dono de uma 
empresa de aviação, ou mesmo, dono de um navio. Quan¬ 
to combustível é gasto para ir de um ponto a outro da Ter¬ 
ra? Por exemplo, Paris a São Paulo. A resposta, agora, é 
fácil. Rode o programa e introduza as coordenadas das 
duas cidades, obtendo a distância. Depois calcule o gasto 
com combustível. 

Vamos tentar calcular a distância entre dois pontos 
da superfície da Terra novamente, porém, agora ao invés 
de considerarmos o trajeto sobre a superfície, vamos con¬ 
siderar o trejeto em linha reta, pelo interior da Terra. 


D = sen (x/2). 2 Rt 
D = sen (x/2). 12740 Km 

Como exemplo, calcule a distância pelo interior da 
Terra entre Paris e São Paulo. Se você quiser, acrescente 
as linhas 400 e410 ao programa "Geodésicas". 


4-00 LET D = IMT ( . 5 + 1274-Q0Q4SIN C 
C/2) ) /10 0 

4-10 PRIWT PT 10,0; “ PELO INTER 
lüR DP; TERRP P DISTPNCIP 

E s : " .; D ; " KM , ís 


Desse modo, ele lhe fornecerá também a distância 
D! 

Obs.: Caso um dos locais considerados seja um dos polos, 
introduza 0°0'0" como valor da longitude. 


Tabela 1 

Local 

Latitude 

Longitude 

São Paulo 

-23°32'36" 

46°3759" 

Rio de Janeiro 

—22° 54'24" 

43°10 / 21" 

Belo Horizonte 

— 19° 55'57" 

43° 56'32" 

Porto Alegre 

— 30°02'15" 

51°13'13" 

Salvador 

—12°55'34" 

38°3V13" 

Curitiba 

-25°25 , 4 8" 

49°16 , 15" 

Cuiabá 

-15°35'36" 

$6P06'0V 

Belém * 

—01°28'03" 

48°29'18" 

Brasília 

-15P4703" 

47°55'25" 

Campo Grande 

—21°34'00" 

54°54'54" 

Florianópolis 

-27°35 , 36" 

48°35 / 56" 

Fortaleza 

—03°45 , 47" 

38°3V23" 

Manaus 

-03°08'07' 

exorar 

Recife 

-O^IO^Z' 

34°54'47" 

Natal 

—05°45'54" 

35°1Z04" 

Goiânia 

—16°40'21" 

49° 15'29" 

São Luis 

— 02°33'00" 

44° 18'00" 

Aracaju 

—10°55'00" 

37°03'00" 

João Pessoa 

—07°06'57" 

34°53'14" 

Maceió 

— 09°40 , 00" 

35°44'00" 

Teresina 

—05° 05'13" 

42°48'42" 

Vitória 

—20° 18"52" 

40° 19'06" 

Rio Branco 

-09° 58'22" 

67°48'40" 
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Aplicações Práticas das leis de 
Ohm e de Joule para o TK 85 


José Roberto Fernandes 


Mais uma vez, na Seção Didática, apre¬ 
sentamos um software educacional, desti¬ 
nado a uma aula de Física. Desta vez, des- 
trinchamos as leis de Ohm e Joule, impor¬ 
tantes conceitos da Eletro-Dinâmica. 


0 processo de criação do software 
educacional, geralmente, tem início co¬ 
mo um desafio, pois envolve um núme¬ 
ro muito grande de variáveis ao lado de 
uma imensa responsabilidade do que é 
ensinar. 

0 criador deve acumular sólidos co¬ 
nhecimentos didáticos e educacionais e 
aliar à sua criatividade uma certa dose 
de audácia. 

Em educação todos os assuntos de¬ 
vem ser abordados com a maior impor¬ 
tância possível. Os detalhes e a mecâni¬ 
ca da apresentação devem ser tratados 
de forma coerente de modo a facilitar o 
entendimento. A apresentação deve ser 
bonita, mas, não deve sobrepor à fun¬ 
cionalidade. 

0 programa aqui apresentado, des¬ 
tina-se sobretudo a facilitar a resolução 
de exercícios envolvendo as duas leis de 
OHM e a lei de JOULE. Embora, desti¬ 
nado a fornecer resultados numéricos 
aos problemas, isto não é feito de ma¬ 
neira direta, mas sim, antes exige do 
operador uma certa dose de raciocínio 
no processamento dos dados. 

Fundamentos Teóricos 

a) Primeira Lei de OHM 

Se o condutor for percorrido por 
uma corrente elétrica de intensidade i, 
sob a ação de uma diferença de poten¬ 
cial U e, se sua temperatura for manti¬ 
da suficientemente constante, verifica- 
se que: 







1 _ !_k 1 

1 


ü_ 

i 

,r ü 

= K, (constante) 

Figura 1 


Se tomarmos experimentalmente 
vários condutores diferentes verificamos 
que a constante é: 
ai) Para condutores em que i é grande 
K, é pequeno 

a2) Para condutores em que i é peque¬ 
no K , é grande 

"Enquanto K 1 aumenta i diminui" 
"Enquanto K 1 diminui i aumenta" 

K 1 é uma característica do condu¬ 
tor que regula a intensidade da corrente 
no mesmo. 

A grandeza K 1 é de ordem macros¬ 
cópica e denomina-se resistência elétri¬ 
ca do condutor, sendo usualmente indi¬ 
cada por"R" 

Assim: 


bl) Para um mesmo material, a resis¬ 
tência elétrica é diretamente proporcio¬ 
nal ao comprimento do condutor. 

R a I 

"Aumentando-se o comprimento 
do condutor sua resistência aumenta 
proporcionalmente". 
b2) Para um mesmo material, a resis¬ 
tência elétrica é inversamente proporcio¬ 
nal à área da seção transversal do con¬ 
dutor. 


r = JJ (primeira lei de OHM) 
i 

b) Segunda Lei de OHM 


"Aumentando-se a área da seção 
transversal do condutor, a sua resistên¬ 
cia diminui proporcionalmente". 

De bl e b2 tiramos que: 


A resistência elétrica é, para um da¬ 
do condutor, uma função da sua geo¬ 
metria. 

A experiência comprova que con¬ 
dutores geometricamente diferentes 
apresentam resistências elétricas dife¬ 
rentes, mesmo que sejam construídos 
com o mesmo material. Analogamente, 
condutores geometricamente idênticos 
possuem resistências elétricas diferen¬ 
tes se forem constituídos de materiais 
diferentes. 

A relação entre a resistência elétri¬ 
ca e a geometria do condutor pode ser 
posta nos termos mostrados na figura 2. 


a 


Figura 2 


S — seção transversal 
I = comprimento do condutor 
r — raio da seção transversal 
d = 2r 


d = diâmetro da seção transversal 



A 

l <2 = R x A (constante) 
I 


K 2 é uma constante de natureza mi¬ 
croscópica e, diz respeito ao material de 
que é constituído o condutor. Desta for¬ 
ma condutores geometricamente idênti¬ 
cos, porém, materialmente diferentes 
fatalmente terão diferentes. 

A grandeza física K 2 denomina-se 
resistividade elétrica do material, sendo 
identificada por" P ".Assim, 

P = R A ou R = P 

I A 


(Segunda Lei de OHM) 

Verifique a tabela I, èla mostra a re¬ 
sistividade dos principais materiais. 
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c) LeideJOULE 

As interações sucessivas dos elé¬ 
trons da corrente elétrica com os ions 
positivos da rede cristalina do condutor, 
efetuam-se de tal forma a produzir ele¬ 
vação de temperatura no mesmo. Tal 
constatação, constitue-se no chamado 
efeito JOULE. 

A avaliação quantitativa do efeito 
JOULE é feita em termos de potência 
dissipada pelo sistema. 

Para se determinar a potência dissi¬ 
pada por um sistema num dado inter¬ 
valo de tempo (At), basta verificar a va¬ 
riação de energia ( A E) apresentada pe¬ 
lo mesmo nesse intervalo. Desta forma: 


Pm = 


AE 

At 


(potência média) 


No nosso caso A E é eminente¬ 
mente térmica. 

Para um dado condutor padrão, 
mantido a uma diferença de potencial 
constante, podemos afirmar que a po¬ 
tência elétrica por ele dissipada é cons¬ 
tante. 

Em termos elétricos, a potência po¬ 
de ser expressada por: 

U 2 

P = U i = Ri 2 — (Lei de JOULE) 

R 


Adotando-se Unidades de Sistema 
Internacional teremos: 

U - volt (V) 
i — ampère (A) 

R — OHM () 

P — OHM x metro ( íl x m) 

I — metro (m) 

A — metro quadrado (m 2 ) 

P — watt (W) 


TABELA I 

Resistividades Elétricas (20°C)para 
alguns materiais mais comuns em 
{2 x m (valores aproximados) 


alumínio 

2,8x10- 8 

cobre 

1,7x10-8 

ferro 

6,5 x IO -7 

prata 

1,6x10-8 

tungsténio 

5,6x10-8 

manganina 

4,4 x IO -7 

constantana 

4,9x10- 7 

niquel-cromo 

1 x 10“® 

carbono 

3,5x10- 5 

germânio 

4,5x10 

silício 

6,2 x 10 4 

mica 

10 11 a 10 15 

quartzo 

7,5 x IO 17 


Digitação do Programa 

Não existem dificuldades maiores 
na digitação deste programa. Você de¬ 
ve tomar cuidado apenas na criação da 
linha: 1 REM — 165 caracteres quais¬ 
quer, e na digitação das linhas 9980 e 
9997 que constituem a sub-rotina de car¬ 
ga da linguagem de máquina. Sem es¬ 
tas providências o programa todo esta¬ 
rá comprometido. 

Salvando o programa. 

Faça uma cópia do programa tal 
qual você o digitou, comandando: 

GOTO 9995 

Terminada a operação o programa 
será listado automaticamente na linha 
9980. Comande agora. 

GOTO 9980 (carrega a LM) 

Espere alguns instantes. O progra¬ 
ma será novamente listado a partir da li¬ 
nha 9980. 

Digite agora RUN 4* NEW LINE 
(Enter) 

Siga as instruções até o "MENU" 

Digite BREAK 

Digite LIST 9980 

Apague as linhas 9980 a 9997 

Digite 9980 SAVE "OHM" 

9985 GOTO VAL "2" 

Faça uma nova cópia do programa: 
GOTO 9980 

Terminada esta operação, o pro¬ 
grama entrará rodando. Siga as instru¬ 
ções até o "MENU". 

Operação do Programa 

Imagine o seguinte exercício exem¬ 
plo: 

Um condutor filiforme de cobre tem 
diâmetro 6 mm e comprimento 1 km e é 
percorrido por uma corrente elétrica de 
intensidade 2A. Nestas condições deter¬ 
minar: 

a) sua resistência elétrica 

b) a diferença de potencial elétrico a 
que está submetido 

c) a potência elétrica dissipada. 

São dados: 

f = 1,7x10- 8 xm (tabela) 

<5=6 mm = 6x 10~ 3 m 
= 1 mm = 10- 3 m 

A = 7 r r 2 = — = — x(6x 10 -3 ) 2 m 2 

4 4 

I = 1 km = 1 x 10 3 m 1 km = 10 3 m 
i = 2A 
A calcular: 

R 

U 

P 


Sabendo que: 

1) R =—=> R = — 


2) R = P 


R = 


® x L 


3) p = u i = R i 2 = 


U 2 


P=Uxi = Rxl 2 = 


U 2 


Estando no "MENU" e com base 
nos dados fornecidos, verificamos que 
primeiro devemos calcular "R" com ba¬ 
se na 2? lei de OHM. Digite<E> Digite 
a gora <1 >. 

Entre com os dados: 

m = 1.7 E — 8 
L = 1 E3 

A = ( 7T /4) * (6 E — 3) * (6 E — 3) 
Resposta: 

R = 0,60125 OHM (í>) 

anote o resultado para a próxima opera¬ 
ção. 

Volte ao menu digitando NEW-LINE 
(ENTER) 

Digite<D>para 1? lei de OHM 
Digite agora 3 
Entre com os dados: 

R = 0,60125 í> 

I = 2 A 

Resposta: 

U = 1,2025V 

anote o resultado para a próxima ope¬ 
ração. 

Volte ao menu. Digite <G> para lei de 
JOULE. Digite a seguir 1, 4 ou 7. Seja, 
por exemplo, 4. 

Entre com os dados: 

R = 0,60125 í> 

I = 2 A 

Resposta: P = 2,405 W 


Considerações Finais 

A ordem dos cálculos, não precisa 
ser necessariamente esta. Pratique com 
o exercício acima proposto e busque ou¬ 
tras maneiras de resolvê-lo. 

Volte ao menu digite agora F para 
1® e 2® leis. Observe a sugestão ai con¬ 
tida. Você obterá os mesmos resulta¬ 
dos! 
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1 REM 11111111112222222222333 
33 3333344- 4- 4-4 4 4 4-44-5555555 5 5 5 5 6 6 5 5 
565667777777777S33 3S388833 3 S 99 99 
99900000000001111111111222222222 
2333333333344.44.44-44-4-455555555555 
66666666577777 

3 PÜKE 15510:0 
5 RRND USR 15524 

8 FÜR X = 1 70 500 

9 NEXT X 
10 CL5 

95 GOSUB URL "9900” 

100 PRINT RT 2:0; ; "E5TE PROGRRM 
R UI5R R R55ÜLUCRÜDE EXERCÍCIOS 
GERRIS ENUOLUENDO" * , "001 PS GRR 
NDEZRS ELE7RICRS : 

105 GOSUB URL "9905” 

105 RRINT ,, !5 R -> RESISTENCIR” 
"S -> RESISTIUIDPDE" . 51 ü -> DIr-tR 
ENCR DE ROTENCIRL” . 11 1 -> INTENSI 
DRDE DE CORRENTE”,”P -> ROTENCIR 


110 PRINT , , " j» R5 GRRNDEZRS GE 
0ME7RICRS : , 

113 GOSUB URL "9905” 

115 RRINT :s L -> COMPRIMENTO D 
0 CONDUTOR","fi -> RRER DR SECCRO 
TRRNSUERSRL DO CONDUTOR" 

118 RRINT 

120 GOSUB URL "9900” 

122 G05UB URL "9500” 

123 CL5 

125 GOSUB URL "9900” 

125 PRINT .."RS U NIDPDE5 EMRRlG 
RD RS PERTEHCEMRO 3ISTEMR INTERNR 
CIONRL * 5 I *" .. . 

130 GOSUB URL "9900” 

135 PRINT . ,"R -> OHM”,,”! -> 0 
HM X METRO” . "U -> UOLT”,,”I -> fl 
MPERE" . . ”P -> UP.TT” , , , , ”L -> MET 
RO”:."R -> METRO QURDRRDO" 


135 RRINT 
140 GOSUB 
143 RRINT 


URL "9900 : 


145 

149 

150 
152 
150 

RIMEIRR 

5 ; ” 1 ” 

155 PRlt-RT RT 
SEGUNDR LEI ) 


GOSUB URL "9900” 
LET UP=15 
GOSUB URL "9500” 
GOSUB URL "9790” 
RRINT RT 9:3;”R = 
LEI ) ” ; RT 5:5; 


( R 

11 , 


15 


RT 


"R 

15 


"U " ,RT 

= a — 

IO; ”L" .; RT 


15,IO;”R" 


166 RRINT RT 20,0;”” 
165 GOSUB URL "9900" 

170 GOSUB URL "9500” 

171 CLS 


175 GOSUB 
130 PRl^lT 


URL "9900" 


155 RRINT 

190 GOSUB URL "9900” 

195 RRINT RT 10.3;"F = U X 1 = 

R X I = sae';RT 9,20; ”2" ;RT 9,2 
5;”U”;RT 5:26;"2";RT 12,25;”R” 
200 RRINT RT 21,0; 

203 GOSUB URL "9900” 

205 GOSUB URL "9500” 


209 GOTO URL ”9700" 
1000 CLS 


1003 CLEflR 

1005 GOSUB URL "9905” 


110? RRINT RT 4:2; "R = ss "; RT 3 
,7; "U" ; RT 5 .• 7 ; "I" 

1109 RRINT RT 4.12 ; ” I = íAT 

3,17; "U";RT 5 : 17; "R" 

1111 RRINT RT 4:21; "U = R X I” 

1 112 PRINT RT 5 :3; ' WM ' ; RT 5,14; 
" MH1 " ; RT 5,25 ; "HH1 

1114 GOSUB URL "9905” 

1115 FOR X=0 TO 9 

1116 RRINT RT X , 0 ; " . " ; RT X , 10; ” . 

" .; RT X , 20 ; * " ; RÍ X . 31; * ” 

1117 NEXT X 

1115 RRINT , , "CRLCULRR : ” , "SRBEND 

0-5E:" _ 

iii9^RRiNT‘‘"R"" , ””;;o”” 

1120 GOSUB URL "9900” _ 

1 121 RRI NT " OURL 0 SEU CRSO; (gl 
OU gj : 

1122 GOSUB URL "9900" 

1123 LET Y=CQDE INKEY ê 

1124 IF Y <29 OR Y>31 THEN GOTO U 
RL ”1123” 

1125 LET DU=11 
1125 LET UR =DU 

1127 GOSUB URL ”9750” 

1125 GOSUB URL "9790 

1129 GOTO URL "1100+ÍY-23)*30” 

1130 LET UR =21 

1131 LET LF=UR 


1132 

1133 

1134 


GOSUB URL 
GOSUB URL 
PRINT RT 2 


"9770” 
”9760; 
,13; 


1135 PRINT RT 4,13;"U 
1135 INPU7 U 
1135 PRINT U;" U" 

1139 PRINT RT 8.13;"I 

1140 INPU7 I 

1141 IF 1=0 THEN GOTO 

1142 PPI^rr I;" R" 

1146 PRINT RT 13,3;”R 
/ ” ; I; ” R" 

1145 LET R = U/1 

1150 RRINT RT 15,3;"R 
M" 

1151 RRINT RT 21.0; 

1152 GOSUB URL "9905" 

1153 GOTO URL "9600” 
1180 LET UR =11 

1151 LET LF =21 

1152 GOSUB URL "97.7®” 
1163 GOSUB URL "9750 

1154 PRINT RT 2,13; 3 


URL "114 0 : 

= " ; U; U 

= ”;R; OH 


1155 PRINT RT 4,13;"U = ”; 

1165 INPUT U 
1167 PRINT U;" U" 

1165 PRINT RT 5,13;"R = ”; 

1169 INPUT R 

1170 IF R < =0 THEN GOTO URL ”1159 


1171 PRINT R;" OHM 5" 

1176 PRINT RT 13,3; "I = ”; U; " U 
/ ";R;" OHMS" 

1175 LET I=U/R 

1150 RRINT RT 15,3;"I = ‘^I;" 
1131 RRINT RT 21,0; 

1152 GOSUB URL "9905" 

1133 GOTO URL "9600" 

1190 LET LF =20 

1191* GOSUB URL "9750” 
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1192 

i : 

PR INT 

RT 

2,13; 8 U 

1193 

PRINT 

RT 

4,13; 88 R 

1194 

IHPUT 

R 


1195 

PRIHT 

R; 88 

OHMS 88 

1195 

PR INT 

RT 

s, 13; ;! i 

1198 

2HPUT 

I 


1199 

PRINT 

l; 88 

R 88 

1206 

PRINT 

RT 

13,3; 88 ü 

MS X 

, ; I ; 

R 88 


1208 

LET U 

=R±I 


1210 

PRINT 

RT 

18 : 3 ; 88 ü 

1211 

PRINT 

RT 

2 1 : 0 ; 

1212 

GOSUB 

URL 

88 9905 88 

1214 

GOTO : 

URL 

18 9500 88 

2000 

CLS 



2003 

CLERR 



2005 

GÜSÜB 

URL 

: 8 Q Q 0:5 18 

2008 

PRINT 

RT 

3 , 1 ; 88 R 

88 ; RT 

2,6; 88 L 88 ; RT 5.3; 88 

2010 

PRINT 

RT 

9,i;"H 

88 ; RT 

S : S; 88 R 88 ; RT 11,3; 

2013 

PR INT 

RT 

3,17;"L 


R; 88 OH 


u 


u 8 


= S 


R 


!, L : 


>015 PRIWT RT 9:17; 88 R = g ss® 
1 :8 ;RT 5:24; 88 L 88 ; RT 11,24; “R" 
>017 PRINT RT 5:0; 

>015 GÜSÜB URL !, 9905 88 
>019 PRIWT RT 12:0; 

>020 GÜSÜB URL 81 9905 11 
>022 FOR X = 1 TO 12 
>023 PRINT RT X , 0 ; i! 88 ; RT X , lt> . 
M RT X , 31; 88 . 88 
NEXT X 

, : 0 ORLOULRR : M “R ss : 
:: L. 8: E 88 “R 8888 _ 

!: 1 ORLOULRR : 88 :< S£ ; 

L 8 8 8 8 E :* *' fi " 

:! 1 ORLOULRR : 88 "L 8 
g 88 8 8 E 8 8 8 8 R 8 8 8 8 8 8 
TS ORLOULRR : 88 88 R" 

1 ,,,, E ,,,, L ,,,,M 


2024 

2025 PRINT 

ENDÜ: 888 

2025 PRINT 
DO : 8 8 8 8 R 8 8 8 8 , 8 8 
2027 PRINT 
DG: 8 8 8 8 R 8 8 8 8 , 8 8 
2023 PRINT 
DO: 8 8 8 8 R 8 8 8 8 : 8 8 

2029 PRINT 

2030 GÜSÜB 

2031 prií-pt 

g. g OU S 

2032 GÜSÜB 
2035 LET Y 
20.37 IF Y<; 
RL 88 2034 88 
2035 IF Y 


TEN 

TEN 


TEN 


( 0 , 


URL 88 9900 88 
88 OURL SUR OPORO- 

5 !I 

URL 88 9900 88 
=OODE INKEY$ 

>9 GR Y >32 THEN GOTO U 

=29 OR Y = 31 THEN LET DU 


IF Y =30 OR Y =32 THEN LEI DU 
IF Y =29 OR Y = 31 THEN LET UP 


88 9750 88 
: 5 Q 7 9 0 81 
=30 


THEN GOTO U 


= 15 
2039 
=5 

20-40 
=DU 

2042 IF Y = 30 OR Y =32 THEN LET UH 
= 14 

2043 GÜSÜB URL 
2045 GÜSÜB URL 
2047 IF Y =29 OR 
RL 88 2050 88 

2049 IF Y = 31 OR 
RL 88 2050 88 

2050 LET UR =15 
LET LF =UR 
GÜSÜB URL 
GÜSÜB URL 
GOTO URL 88 
LET LF = 15 
GÜSÜB URL 
GOTO URL 88 
PRINT RT 

8 , 0 ; 


>051 
>052 
>053 
>054 
>050 
>051 
>070 
>100 
r; RT 


Y =32 THEN GOTO 


8 8 9 7 7 O “ 
88 9750 88 
9070 88 



8 R = 

8 OHM 88 
88 2500 88 


2102 PRINT , , 88 1 

2103 INPUT RO 

2104 PRINT RO; 88 OHM X M 88 

2105 GOTO URL 88 2500 88 
2200 PRINT R T 3 ,1 
g :: ;RT 5,0; 

2202 PRINT ,, 

2203 INPUT R 

2204 PRINT R; 

2205-GOTO URL 
2300 PRINT RT 3,1 
S’;RT 5,0, 

2302 PRINT ,, 

2303 INPUT R 

2304 PRINT R; 

2305 GOTO URL 
2400 PRINT RT 3,17; 88 
B : " ; RT 5 :0; 88 

2402 PRINT : , 88 L = 

2403 IWPÜT L 

2404 PRINT L; 88 M" 

2405 GOTO URL 88 2500 88 
2500 PRINT .. , 


:: R = :: ; 
M2 

>500 88 


>505 INPUT RO 
>505 PRl^PT RO 
>512 PRINT 
>515 INPUT 


: S 

; 88 OHMS 

, , :: R = 88 ; 

R 


M 88 


>515 PRINT R; 


OHMS 88 


2520 IF Y = 31 THEN GOTO URL !, 25S0 


2525 

2527 

2529 

2530 

2531 

2532 
2550 
2552 

2554 

2555 
2 555 
2555 
2500 
2505 
2510 
2515 
2520 
2525 
2530. 

2531 

2533 

2535 

2535 

2638 

2640 

2650 

2555 


LET R=CRÜ±L)/R 
PRINT :::: 88 R = '* 

; H 

pRihrr , : 8 r = 88 ; R 
PRIHT : 

GÜSÜB URL 88 9905 88 
GOTO URL 88 9500 88 
LET L=CR*R)/RÜ 
PRINT t : , , 88 L = 88 

; RO 

PRlhrr , , 88 L = 88 ;L; 
PRIhfT : : 

GÜSÜB URL 88 9905 88 
GOTO URL 88 9500 88 


RO; 8 8 x 8 8 ;L 


Mi 


; h ; 

M 88 


; R; 


PRIHT 

INPUT 

PRIHT 

PRINT 

INPUT 

PRINT 


; 8 L = 

88 M 88 

88 R = 

Mi 



IF Y = 30 THEN GOTO URL 88 i 

LET R=(RO*L)/R 

PRINT : ,:: :: R = " ; RO í “ X 

; R 

PRINT , , 88 R = 88 ; R ; 88 OHMS 8 
PRINT ,: 

GÜSÜB URL 88 9905 88 

GOTO URL 88 9600 88 

LET RÜ=CR*R)/L 

PRINT , , , , 8 1 = 88 ; R; 88 X 8 

; L 

PRINT , : 8i S = 88 ; RO; 88 ÜHMí 


> 5 5 0 


; l 


R; 

x 


GÜSÜB URL 88 9905 88 
GOTO URL 88 9600 88 
CLS 

GÜSÜB URL 88 9900 88 
PRINT RT 3:2; 88 R = 

; RT 2:7; 88 ü 88 ; RT 5,7; 8 8 1 8 8 ; RT 2 
1 X L" ; flT 5,15; : 'fi” 

GOSUB UAL "9305" 


PRINT 


THE 5; 
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3015 PRINT 

,, 

.* .* 




e 


"U”- 



3019 PRINT 

, , 


;;" - l "" , ■ 

‘“Ü 1888 

E “ 88 R““ 





3020 PRINT 

> i ., 

.* .» 

*■8" 


8 “ü 8 8 8 8 

E 





3022 PRINT 

, , 

"B" 

;; 

8 " U 88 “ 

E “**1*“' 


”L " 



3024 PRINT 

, , 

“U” 

" , 1 

8 “L 8 8 8 8 

E “ 88 1" 88 

-5 r* •- cr í-i L-- cr 

•1 i= 

"B** 

, i : , / 



a 


3025 GÜSÜB URL :, 9900“ 

3029 PRINT .“OURL 5ÜP OPCRO? ( 

,a,a,s, ou i 

3030 PRINT 

3032 GÜSÜB URL **9900“ 

3033 POKE 15415:2 
3036 LET L=ÜÜDE INKEY$ 

3035 IF L <29 GR L>33 ThEH GOTO U 
HL “ 3035“ 

3039 CL5 

3040 GÜSÜB URL “9900“ 

3050. PRINT , , “PRRR GPERRR NE ST R 
PRRTE Dü PRÜ-GRRMR, UÜCE DEUE 
RDOTRR OS SE-GUINTES PROCEDIMEN 
TOS : 11 

3055 PRINT 

3050 GÜSÜB URL 81 9905“ 

GüTü URL “5000+CL-29)*I00 8 
CL 5 

GüTü URL “4500“ 

CL 5 


3070 

4000 

4001 
4003 


4004 CLERR 

4005 GÜSÜB URL 88 9905 81 

4107 PRINT RT 3,1;“P = U X I" ; RT 
3.13;“I = saesTíRT 2,15; “P“^RT 5 


. 23; s, ü = 


; RT 


.15;“U“;RT 
5;“P“;RT 5,25;“1“ 

4109 GÜSÜB URL 88 9905“ 

4113 PRINT RT 9,1;“P = R X I";RT 
5 , IO; “2“ ; RT 9,13; “R = ’; R i 8 

. iS;“P“;RT 11,15; 88 1“; RT 9,23; 88 1 
= — 88 - st- 5,25; “P“;RT 11,25; 88 R 88 ; 
RT 5,24;“2“;RT 10.19;“2“ 

4115 PRINT RT 13,0; 

4117 GÜSÜB URL 81 9905" 

4120 PRINT RT 17,1; “P = 

16.6; "U“ ; RT 15,7; “2“ .; RT 19,5; “R 88 
; RT 17,13; 88 R = ; RT 16,15; 

;RT 19,15;“P“;RT 15,19;“2“;RT 
.22; "U = p X R“;RT 15,23; ,8 2“ 

4122 PRINT RT 20,0: 

4125 GÜSÜB URL “9205“ 

FÜR X = 1 TO 19 
PRINT RT X , 0 ; “. “ 

X ,20 ; “ . RT X , 31 
NEXT X 

4135 PRINT RT 5,3;“O" 

88 ; RT 5,24; ,8 g“ 

4139 PRINT RT 12,3;“0 
; RT 12,24; “jg“ 


8 ü 8 8 

17 


4130 
4132 
88 ; RT 
4134 


RT X ,11. 


■1- 


RT ? 
*; RT 
1 ; RT 


a 


4140 PRINT RT 19,3; 

“g 88 ; RT 19,24; “S 88 
4150 LET 0 =CÜDE INKEY* 
4152 IF ü <29 OR O>37 THEN 
RL 8 8 4150 8 * 

4155 IF ü >=29 
ü URL 88 4170 88 
4157 IF ü >=32 
Ü URL 88 4150 88 
4160 IF ü > =35 
Ü URL 88 4190 88 

4170 LET Dü=15 

4171 LET UP =Dü 


>, 14 
12,14; 
19,14; 


GOTO U 
RND ü <=31 THEN GüT 
RND O<=34 THEN GÜT 
RND O<=37 THEN GÜT 


4172 GÜSÜB URL “9750“ 

4173 GÜSÜB URL “9790“ 

4175 GÜTÜ URL “6000+ÍÜ-29)*100" 
4150 LET DU=S 

4152 LET UP = 14 

4153 GÜTÜ URL 88 4172 88 

4190 LET ÜP =13 

4191 GÜTÜ URL 88 4173 88 
4500 GÜSÜB URL 88 9900 88 

4504 PRINT ,,“PRRR FINS DE CRLÜU 
LOS,CÜNSID£ 

4505 print 

4507 PRINT 

4510 PRINT 

4512 PRINT 

: í> “ g 

4515 PRINT 
OÜRL 0 SEU CR50“ 

4515 GÜSÜB URL 88 2500 88 
4520 GÜTÜ URL 88 4003 88 

4999 ST GP 

5000 PRINT RT 10,0; gH 
0 URLOR DE 88 “R “ 8 8 USRN- 


.* .* 

88 DRD03 : 88 


“0 8888 ü 8 8 8 8 

■s 

P" E 

. „p 

rri 

H 

A. .» 

“B 88 “ R 88 “ 

•i 

“ “P““ E 

’ "p 

£ S .:, R 

■á' 

B 8 8 u 8 8 

“ 88 ü““ E 

. .. p 

8 8 8 8 E 8 8 8 8 R 


UJ 

II Tlí 1, II * « 

-í- 

““U“ 

“‘ 8 ,.I 


,, ,, ,.y,. .. 

E 88 

88 !“ 88 ,8 , 88 

““1“ 

. p? 

.* 

: i ,, s« -y : i :, 

UJ 

R , 88 

“,, P “ 

,,,, | 


RNÜTF 


CRLCULE 
Dü R I 


5002 PRINT 

3 


5005 PRINT 
ü URLOR RSSIM CRL- 
R _ 

0 WBÊ ) 

5005 PRINT ,, 

5010 GÜSÜB URL “2905 88 
5012 GÜTÜ URL 88 9500“ 
5100 pRihrr RT 10,0; g3 
Ü URLOR DE “ “R“ :: USRN- 


C EXPRE5SR0 

SÜBSTITÜR 


CULRDO N 
£ EXPRESSR 


CRLCULE 
DO R I 


5102 PRINT 

i “ 

5105 PRINT 
0 URLOR RSSIM CRL- 

R _ 

0 mÊ ) “ 

5105 PRINT ,, 

5110 GÜSÜB URL “9905“ 
5112 GüTü URL “9500“ 
5200 PRINT RT 10,0; ; gü 
ü URLOR DE 8 8 8 8 R““ U3RN- 


£ EXPRESSRO H 

jg fejfa SUBSTITUP 
CULPDÜ N 
( EXPRESSR 


CALCULE 
DO R 1 


5202 PRINT 

3 88 

5205 PRINT 
0 UR LOR RSSI M CRL- 
R 
0 

5205 PRINT ,, 

5210 GÜSÜB URL “9905“ 
5212 GüTü URL “9600“ 
5300 PRINT RT 10.0; “gj 
0 URLOR DE 88 “R 8 8 8 8 USRN- 


( EXPRESSRO WS 

SÜBSTITÜR 
CULRDO N 
( tXP RizSSR 


CRLCULE 
DO R I 


5302 PRINT 

3 " 

5305 PRINT .. 

0 URLOR RSSIM CRL 
R 


C EXPRESSRO EI 

|p SÜBSTITÜR 
CULRDO N 
( tXPRtSSR 
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nM1 „ 


5420 PRINT 8 8 1 = 8 8 ; 

5308 PRINT , 


5422 IHPUT 1 

5310 GOSUB URL ‘9308" 


5425 PRINT I; 88 R 88 

5312 GOTO URL ”9600” _ _ 


6425 PRI^rr , , “R = 88 ; P; 88 U / 88 ; I* 

5400 PRINT RT 10 .• 0; : 'R1 CHLUÜLt 


I; 88 R2“ 

0 UfiLQR DE " "R”" USPN- C-0 H W 


5430 LET R=P/(I±I) 



5440 PRINT : . 88 R = 88 ; R ; 88 QHMS“ 

5402 PRINT " « EXPRE88HU BS 


5499 GOTO URL 88 6037 88 

\ ** 


5500 PRINT RT 10,0; í8 g URLÜRE5 DE 

5405 PRINT , , , , , .. ' SiH SUBSTITUA 


; *' 

0 URLOR RSSIM ORL- CULhDü _ _N 


5510 PRINT . . 88 P = 88 ; 

q t tXPRtssH 


5513 INPÜT P 

Q } 51 


5515 PRINT P; 88 U 88 

5408 PRINT ,, 


5515 PRINT 88 R = 88 ; 

5418 GOSUB URL “9905” __ ie . . = 


6520 INPÜT R 

8000 PRINT RT 10,0; “tí URLORE8 DE 


5525 PRINT R; 88 OHMS 88 

• 81 


5530 PRINT :. 88 I2 = 88 ; P; “ ü / "; R 

5010 PRINT . . “ü = “ ; 


; “ OHM 5 88 

6020 1HPUT U 


5535 LET I=SOR (P/R) 

5022 PRINT ü;“ U“ 


5540 PRINT : : 8 8 1 = 8 8 ; I; 88 R 88 

5024 PRINT 88 I = 88 ; 


6599 GOTO URL 88 5037 88 

6025 INPÜT I 


5600 PRINT RT 10,0;“g URLORES DE 

6025 PRINT I; 88 R 88 


• *' 

5030 PRINT , ,”P = " ; U; " U X I; 


5610 PRINT . . 88 ü = 88 ; 

“ P. “ 


6515 INPÜT ü 

6032 LET P=U*I 


6615 PRINT ü; 88 U 88 

6035 PRINT ,."P = ";P;" W” 


5620 PRINT 88 R = 88 ; 

6037 PRINT - 


5625 INPÜT R / 

5039 GüSUB URL “9905“ 


5525 PRINT R; 88 OHMS 88 

6040 GOTO URL “9500 81 


5630 PRINT , , 88 P = 88 ; U*ü; 88 U2 / 88 

6100 PRINT RT 10.0; "§ URLORES DE 


; R ; 88 OHMS “ 

8 8 


5532 LET P=(Ü*Ü)/R 

6110 PRi^rr , , s, P = “ ; 


5535 PRINT . .. 88 P = 88 ; P ; 88 U 88 

5120 INPÜT P 


5699 GOTO URL 88 6037 88 

5122 PRINT P ; “ l,r 


5700 PRINT RT 10,0; 88 1 URLORES DE 

5124 PRINT “Ü = 88 ; 


• “ 

6125 INPÜT ü 


5710 PRINT . . 88 ü = 88 ; 

6125 PRINT ü;“ U“ 


5715 INPÜT U 

5130 PRINT , , 88 1 = “ ; P ; “U / “ ; U; 88 


5720 pRihrr ü;“ u 88 

U“ 


5724 PRINT 88 P = 88 ; 

5132 LET I=P/ü 


6725 INPÜT P 

6135 PRINT : » 8 8 1 = 88 ; I; “ R 88 


5730 PRINT P;“ U 88 

5139 GOTO URL “6037“ 


5735 PRINT . . !8 R = 8, ;U*ü;“ U2 / “ 

5200 PRINT RT 10,0; “g URLORES DE 


; P; “ us 88 

• 8 * 


5740 LET R=(U*U)/P 

5210 ppi^rr , , 88 p = 88 ; 


5745 PRlirr , , 88 R = 88 ; R ; 88 OHMS 88 

5215 INPÜT P 


6799 GOTO URL 88 6037 88 

5220 PRINT P ; “ U 88 


5500 PRINT RT 10,0; ,8 g URLORES DE 

5223 PRINT 8 8 1 = 8 8 ; 


• *• 

6225 INPÜT I 


5510 PRINT , . 88 P = 88 ; 

6227 PPlI-rr I; 88 R 88 


5515 lb\PUT P 

5230 PRINT ,:“ü - 88 ; P ; 81 U / “;I; 


6520 PRINT P ; “ g 88 

... R :. 


5525 PRINT 88 R = 88 ; 

6232 LET Ü =P / 1 


6527 INPÜT R 

6235 PRINT ,.“ü = 88 ; ü ; “ U“. 


5530 PRINT R; 88 OHMS 88 

5299 GOTO URL 88 5037 88 


5535 PRINT , , “U2 = 88 ; P ; “ U X “ ; R 

5300 PRINT RT 10,0; ,8 S URLOR ES DE 


; V OHMS 88 

• 8 8 


5540 LET Ü=SÕR (P±R) 

6310 PRINT ,,”R = 


5545 PRINT , . 8, ü = 88 ; U ; 88 U“ 

6312 INPÜT R 


5599 GOTO URL 88 5037“ 

5315 PRINT R; " OHNS” 


9000 STOP 

5318 PRINT ”1 = 


9600 PÜKE 15415,0 

6320 INPÜT I 


9602 PRINT PT 23.9; 11 

6323 PRINT I;” P” 


m- 

6325 PRINT ,, "P = “ ; R ; ” OHMS X " 


9604 IF INKEY $ = " ” THEN GOTO UPL 

1*1; ” R2 " 


"9604” 

.6330 LET P=R*I*I 


9606 CLS 

6340 PRINT ,,”P = " ; P ;" U” 


9607 POKE 16418,2 

6399 GOTO URL ”6037” 


9700 CLS 

6400 PRINT RT 10,0;”§ URLORE5 DE 


97ÍT3 GOSUB URL ”9900" 

• 8 8 


9705 PRINT i , "PRRfi FINS DE CPLCü 

5410 PRINT . . “P = 88 ; 


LOS , CONSIDERE : " 

5415 INPÜT P 


9707 PRINT .."< C > PPRP UOLTPR 

5415 PRINT P; “ U 88 


PO INICIO” 
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9703 PRINT ,,“< b : 

> phhp, 

PRIMEIR 

P LEI DE OHM “ 

9710 PRINT E : 

:• PflRfl 

SEGUNDR 

LEI DE DHM“ 

9712 PRINT ,,“< F : 

> PfiRfi 

PRIMEIR 

fl/SEGUNDA LEI5“ 
9714 PRI^rr G : 

;> PP, RR 

LEI DE 

UOULE “ 

9715 PRINT H : 

:> PR RR 

ENCERRA 

9717 PRINT : , 

9713 GÜSUB URL “9900“ 

9719 PRINT ::“QUP;L SEU CP 

só? 


,i [5 * is .* àS -• *- l Ei .* .» 

9720 GO SUB UPL “9900“ 

9725 LB7 Ü=CGDE INK£Y$ 

9726 IF ü <40 GR ü >45 7HEf'4 GOTO U 
HL “9725“ 

9727 IF 0=40 THEH GOTO URL “10“ 
9730 IF ü >=41 RND 0<=44 THEN GOT 
0 ypL "1000* ÍÜ-40) “ 

9732 CLS 
9740 LIST 

9760 FOR X = 1 TO LF 

9761 R: RND ÜSR 16573 

9762 NEXT X 
9753 RETURN 

9770 FOR X = 1 TO UR 

9771 RR ND ÜSR 16553 

9772 NEXT X 

9773 RETURN 

9730 FOR X =1 TO DU 
9732 RRND ÜSR 15529 
9735 NEXT X 
9737 RETURN 

9790 FOR X =1 TO ÜP 

9791 RRND ÜSR 16514 

9793 NEXT X 

9794 RETURN 

9300 FOKE 15413:0 _ 

9302 PRINT RT 23.9; 11 WSBSSÊÊÊMBBeL 

Sií" 

9303 IF INKEY$ = “ “ THEN GOTO URL 
“9303“ 

9305 PRINT RT 23,9 ; Sl 

96-07 POKE 16415 :2 
9309 RETURN 

9900 PRINT “**•****************** 
***±*****±**“ 

9901 RETURN 

9905 PRINT " - 


9906 RETURN 

9930 FR ST 

9933 LET E=16514 

9935 LET R$= “2R0C40E511210019D10 
1D502E D B 0- C 9 2 R 0 C4001B 4020 9112100E 
519D1EBEDB3RF0620237710FCC92R0C4 
0011F003E16C509E5D113EDB323700E2 

0093D C1C 313 E F 2 fi 0 C 4 0 3E16 011F 0023E 
5 D12 3 C 5 E D B 0 2 B 7 0 C13 D C32 313F1 ü 9 3 3 3 
42B393C2S372R1717172R293R2326232 
E34332631010304CDF50311DR4001160 
0GD6B0BCR104110373717113F2R37341 
D2524211C1E17010S0BCDF50S1100410 
11000CD 6 B0BC9 ! ’ 

9937 FOR 1=1 TO LEN R$ STEP 2 
9933 POKE E , 16* ÍCÜDE R$ (I) -23) +C 
ODE RSÍI + D-2S 
9939 LET E=E*1 

9990 NEXT I 

9991 SLQU 

9993 LIST URL “9930“ 

9994 STOP 

9995 SRUE “OHij“ 

9997 LIST URL “9930“ 


SOFTWARE 

apresenta novas titas com 
desafios emocionantes para você! 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 


1. VALKIRIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
Divino C.R. 
Leitão). 

E mais: 
GUERRILHA 
CÓSMICA 
eZOR. 


4. DEFENSOR 3D 

Livre nosso 
planeta de uma 
invasão 
alienígena. 

Fantásticas 
simulações 
tri dimensionais. 

E mais: Q'BERT 
(Exclusividade 
Ciberne, 
por Divino C.R. Leitáo) e 
ASSALTO. 





2. MERCADOR DOS 
SETE 
MARES 

No Século XIX 
você percorre o 
mundo a bordo 
de seu navio, em 
busca de bons 
negócios. 

E mais: 

CORRIDA MALUCA e PINBALL 
(Exclusividade Ciberne. por Divino 
C.R. Leitáo). 

5. ROT I - PLUS 

• S.O.G. 

Sistema 

operacional, com 
linguagem 
gráfica. Infinitas 
o pç ©es de uso. 

Totalmente em 
código de 
máquina 

(Exclusividade Ciberne, por J. Magel). 

• MERGE 

Possibilita a junçáo de vários 
Drogramas. uns aos outros. 




3. SUBESPAÇO 

Implacável 
caçada espacial 
Total mente 
gráfico. 

E mais: 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne, por 
Divino 

C.R. Leitáo) e COMBOIO 
ESPACIAL. 


6. APLIC1 

• COMP-CALC 

Rápido, eficiente e totalmente em 
código de máquina. A melhor versáo 
do já famoso Visi-Calc. 

• COMPARO 

Progiama gerador de arquivos. 
Totalmente em código de máquina. 
Modele fichas e as acesse pelo 
campo que quiser 

• COMP TEXTO 

De fácil manipulaçáo, totalmente em 
código de máquina. 


PARA EQUIPAMENTOS COM LÓGICA TRS 80 


1. SIMULADOR DE VÔO 

Totalmente 
gráfico e 
acompanhado 
de livro de 
instruçóes, com j 
diagramas, 
tabelas etc. 

E mais: 

PINTOR 
MALUCO e 
O DESAFIO DA 
GALINHA. 



2. XADREZ 

O mais 

tradicional dos 
jogos, 

reeditado em 
nova e 
brilhante 
versáo. 

E mais: 

PATRULHA 
ARMADA 
e PÂNICO 
(totalmente sonorizados). 



/ *** 

CEp 20030 



APRENDA MICROCOMPUTAÇÃO 
NA MELHOR E MAIS BEM 
EQUIPADA ESCOLA DO RIO 

^ SULLIUni 

▼ INFORMÁTICA E TECNOLOGIA LTDA 


RESERVAS E INSCRIÇÕES: 541-3933 (Plantão24HS) 

ED. CENTRO COMERCIAL DE COPACABANA 
AV. N.S. COPACABANA, 581/7? ANDAR 
R. SIQUEIRA CAMPOS, 43/7? AND. -TEL.: 255-9295 
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Caixa Preta: uma simulação em 
física para o TK 85 


Uma das maneiras de se aprender algu¬ 
ma coisa com computador é utilizá-lo numa 
simulação. Pois este programa faz justamen¬ 
te isso: num jogo de simulação, reproduz-se 
uma importante experiência de física. 


Agesandro Caetano Corrêa 


0 programa Caixa Preta foi escrito totalmente em 
BASIC para o TK 85. Este programa simula o jogo Black 
Box, inventado por Eric Salomon, que vem fazendo su¬ 
cesso nos EUA e Europa. 

0 jogo foi inspirado em uma experiência de física, ela¬ 
borada em 1912 pelo físico alemão Max Von Laue, que con¬ 
siste de um feixe colimado de raio X incidindo sobre um 
cristal. Neste, o raio X sofre uma difração produzindo in¬ 
tensos feixes em direções bem definidas, formando o cha¬ 
mado espectro de Laue numa película fotográfica. Assim, 
consegue-se saber a disposição dos átomos no cristal, fa- 
zendo-se cuidadoso estudo das localizações e das intensi¬ 
dades das manchas de Laue (processos mais recentes su¬ 
plantam a Técnica de Laue, contudo seus fundamentos 
continuam sendo os mesmos). 

Descobrindo átomos 

0 objetivo do jogo é descobrir a localização de duas a 
cinco esferas (átomos) que um adversário ou o computa¬ 
dor posicionou em um Tabuleiro (cristal) de 64 casas. Para 
isso, o jogador dispara "raios X" imaginários através do 
cristal, a partir de 40 "canhões" de raios X localizados em 
volta do cristal. O jogador é sempre informado pelo com¬ 
putador sobre quais são os pontos em que o raio X entra e 
sai do cristal, através de marcação com letras de A a Z, so¬ 
bre um "filme fotográfico" que envolve o cristal. 

Se um raio X atinge uma esfera em cheio ele é "reba¬ 
tido", retornando ao ponto de partida. Quando atinge uma 
casa adjacente a qualquer casa em que se encontra um áto¬ 
mo, ele é desviado, em ângulo reto, de sua trajetória ori¬ 
ginal. 0 algoritmo que calcula esta trajetória, e consequen¬ 
temente o ponto de saída do raio X, pode ser visto na figura 
1 . 

Quando o jogador acha que localizou um átomo pela 
reconstituição da trajetória, ele faz uma hipótese. Se seu 
palpite for errado ele perde 5 pontos. Além disso, o joga¬ 
dor perde 1 ponto em cada emissão de raio X feita, só 
sendo possível fazer 26 emissões; depois disso só é possí¬ 
vel fazer hipóteses ou desistir. Caso o jogador desista, o 
programa mostra as posições dos átomos e o jogador per¬ 
de 10 pontos por cada átomo não descoberto. 

As instruções para operações do jogo são mostradas 
pelo programa, sendo que: para posicionar ou fazer uma 
hipótese da posição de um átomo deve-se digitar o número 
da linha seguido do número da coluna e, após isso, digi¬ 
tar NEW LINE. Para disparar um canhão de raio X basta 
digitar a identificação deste, constando de uma letra e um 
número, e após isso digitar NEW LINE. Caso haja algum 
erro na digitação o programa o acusará pedindo para re¬ 
petira digitação. 

Para se ter uma idéia do jogo, tente localizar o quarto e 
último átomo conforme a figura 2. 



Fig. 1 — Algoritmo da trajetória do raio X. 


1. A marca A indica que o raio disparado pelo canhão A6 
atingiu um átomo em cheio na linha 6 coluna 3 (63) e 
voltou. 

2. A marca B passou ao lado do átomo (63) do item 1, so¬ 
frendo um desvio de 90° saído na face inferior. 

3. O raio C sofreu dois desvios de 90° voltando a sair na 
face superior, pois passou ao lado de dois átomos (32) e 
(36). 

4. O raio D sofreu apenas 1 desvio causado por um átomo 
na casa da linha 3 coluna 6 (36). 

5. Através do raio E tente localizar o quarto e último 
átomo. 
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4- «TOMOS 


EMISSÃO 

DISPONIUEL 

PONTOS 21 


-EMIS-SP.O: LETRA NUMERO DO OPSNHRO 
-HIPÓTESE: LINHR COLUNA CRISTAL 
-DESISTE: DIGITE (D) E NEU LINfc 


Fig. 2 — Tabuleiro do jogo CAIXA PRETA, mostrando o cristal ao 
centro, o filme fotográfico em cinza e os canhões de raio X em 
volta. 


Com o tempo você irá perceber que há possibilidade 
de esconder átomos entre outros, de forma que não possa 
ser atingido pelos raios X. Isso, porém, não impede que 
possamos determinar sua posição através de eliminações, 
o que torna o jogo interessante quando competido entre 
duas pessoas. 

Não existe nenhuma particularidade na digitação do 
programa. Só se recomenda, por causa da extensão deste, 
que se salve em fita quando estiver mais ou menos pelo 
meio da digitação, prevendo-se uma queda de tensão com 
a conseqüente perda do trabalho até aquele ponto. Para 
gravar o programa pronto basta digitar GOTO 2710. 

Após isso, esperamos que você se divirta usando a sua 
intuição e inteligência na localização dos átomos em um 
cristal. 


Resposta: O quarto átomo está na Unha 6 coluna 6. 

Agesandro Caetano Corrêa é engenheiro eletrônico, formado pela 
Universidade Federal do Pará, com pós graduação no ITA, e tra¬ 
balha atualmente na Divisão de Energia da TelePará. 



50 HEM izHJC SRLOMON 
50 REM 

70 REM RRGGRhMR DESENUOLUIDO 
50 REM POR PGEBPHDRO CORRER 
90 REM 
100 REM 
110 RR ND 
120 DIM R (5:23 
130 SLOU 

140 REM INICIO DO JOGO 
150 CL5 

160 RR INT RT O , 3 ; "| 

; PT 1 - S : ; RT 2,3; 

170 RRINT RT 5.. 2; “TENTE DESCÜ5R 
IR R POBICPO DOS “ 

150 RRINT “RTO MOS RTRRUES DR RE 
FLEXRO DO RRIQ X NO CRISTRL“ 
130 RRINT 
200 RRINT 
DE RTOMÜS 
COBERTOS E 
210 IHPUT NR 


-ENTRE COM 0 NUMERO 
(2 R 53 R SEREM DES 
NEU LINE“ 


220 REM IF NR<2 CR NR>5 ThEH GO 
TO 210 

230 RRINT RT 12,10;"*" ;NR;" RTO 
MOS* " 

24*0 RRINT 

250 PRIpT “ -P/ PTRIBUIP RR ND OM 

ICPhEblTE 05 RTO MOS TECLE CR 

3 E NEU LINE :! 

250 RRINT 

270 PRlbrr “ -P/ RDÜERSRRIO ROSI 
CIONRR TECLE (R3 E NEU LI 

NE” 

250 RRINT 
230 IHPUT R:$ 

300 IF Ri=“R“ ThEH GOTO 350 
310 IF Ri ;>“P“ ThEH GOTO 230 
320 .RRINT “ *RDUERSRRIO POSICI 
0NR*“ 

330 GOSUB 2450 
340 GOTO 370 

350 RRINT “ *R05ICI0Nfi RRNDOMI 
CR MENTE*“ 

350 GOSUB 2320 
370 LET MRRCR =35 
350 LET RDE=0 
330 DIM D í53 
400 DIM 0(12:123 
410 FOR N = 1 tO NR 
420 LET FL=RCN.13+2 
430 LET FC=R(N,23+2 
440 LET 0(FL:FC3=1 
450 NEXT N 

450 REM PROCEDIMENTOS DO JOGO 

470 LET RONTO =25 

430 LET EMI55R0 =25 

430 GOSUB 1830 

500 GOSUB 350 

510 RRINT RT 3,13 ; S! EMISSRO" ; PT 
4,13 "DISPONIUEL 26" 

520 RRINT RT 5:13;“PONTOS 25“ 
530 RRINT RT IS , 0 ; “-EMI5SR0 : Liz 
TRR NUMERO DO CRNHRO-HIPÓTESE: L 
INHR COLUNR CRI5TRL --DESISTE: Dl 
GITE (D3 E NEU LINE“ 

540 GOSUB 2040 

550 IF EM 1 = 1 THEN GOTO 50.0 

550 IF 000=1 THEN GOTO 700 

570 IF Ei=“D“ ThEH GOTO 540 

550 GOSUB 2150 

530 GOTO 550 

500 IF EMISSRO =0 ThEH GOTO 650 

510 GOSUB 1030 

520 LET MRRCR =MRRCP;*1 

630 LET PONTO=P0NT0-1 

540 LET EMISSRO =EMIS5R0-1 

550 PRIHT RT 4:30;“ 

550 RRINT RT 4.30;EMISSRO 
570 GOTO 750 

550 RRINT RT 18.10;“NRO HR ROSS 
IBILIDRDE 
530 GOTO 540 
70:0 por N = 1 TO NR 

710 IF L =R (N .. 13 PHD C =P (N , 2 3 TH 
EN GOTO 730 
720 NEXT N 

730 RRINT PT L*4 . C*f 4; “ * ! ‘ 

740 LET POHTO =R0NT0-5 
750 PRlt^rr RT 5:25;“ 

750 RRINT RT 5 , 25;RONTO 
770 IF PDE>=NR ThEH GOTO 910 
780 GOTO 540 

730 IF D(N3 =1 ThEH GOTO 550 
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300 G0SU5 1000 
310 LET D(N)=1 
320 LET PDE=PDE-i-l 
330 GOTO 770 
340 FOR N=1 Tü NP 
350 IF D CN) =1 ThEH GOTO 390 
360 PRINT PT fl (N.1) +4,fl(N,2) +4; 
" 0 " 

370 LET PQNTQ=PQNTO-10 
330 LET PDE=PDE+1 
390 NEXT N 
900 GOTO 750 

910 PRINT PT 21.0;"-DE5EJP NOUÜ 
JOGO? (S/N) 81 
920 INPUT RS 

930 IF R * = : ' 5' * THEN GOTO 130 
940 IF RS= :, N S ’ THEN STOP 
950 GOTO 920 

960 REM NUMERO DE PT0M05 
970 PRINT PT 0.21;NR;" RTOMGS" 
930 PRINT PT 1:21; sas^sassBS 
990 RETURN 

1000 REM PM05TRP COM (O) O RTOMO 
1010 PRINT PT LU,Ct4; ,, 0 M 
1020 RETURN 

1030 REM DI5PPRP RPIO X 

1040 IF LS = !, C : ’ ThEH GOTO 1250 

1050 IF LS = 8, 5 Í! THEN GOTO 1370 

1060 IF LS = 88 D 88 THEN GOTO 1490 

1070 LET X =UPL Ci + 1 

1030 LET Y=1 

1090 LET SENT = 1 

1100 PRINT PT X+3,3; ,; ® ; ‘ 

1110 PRINT PT X^3,3;CHRS MRRCP 

1120 LET FL=X 

1130 LET FC=Y+1 

1140 LET DL =X + 1 

1150 LET D0 =Y +1 

1160 LET EL =X-1 

1170 LET EC =Y + 1 

1130 IF OÍFL+1.FC+1)=1 ThEH GOTO 
1610 

1190 IF Q (DL + 1,DC + 1) =1 ThEH GOTO 
1660 

1200 IF QÍEL + I»EC + i) =1 ThEH GOTO 
1710 

1210 IF FL > =1 PND FL < =10 PND FC> 
= 1 PND FC < =10 THEN GOTO 1730 
1220 PRINT PT FL + 3 .FC+3; ,; 1 
1230 PRINT PT FL+3.FC+3;CHR* MPR 
CP 

1240 RETURN 

1250 LET X =UPL CS + 1 

1260 LET Y = 10 

1270. LET SENT =2 

1230 pRibrr PT x-i-3.14; 1 1‘‘ 

1290 PRIhiT PT X +3.14 ; CHR$ MPRCP 

1300 LET FL =X 

1310 LET FC =Y-1 

1320 LET DL =X-1 

1330 LET DC =Y-1 

1340 LET EL =X + 1 

1350 LET EC=Y-1 

1360 GOTO 1130 

1370. LET X = 1 

1330 LET Y=UPL CS+'l 

1390 LET SENT=4 

1400 PRINT PT 3.Y + 3;"*" 

1410 PRINT PT 3‘.Y+3;CHR* MPRCP 
1420 LET FL =X + 1 
1430 LET FC=Y 
1440 LET DL =X-t*l 


1450 LET DC =Y-1 

14b0 LET EL=X+1 

1470 LET EC=Y+1 

1430 GOTO 1130 

1490 LET X=10 

1500 LbT Y=UPL CS-j-1 

1510 LET SENT =3 

1520 PRINT PT 14.Y+3;"B" 

1530 PRINT PT 14.Y+3;CHR* MPRCP 
1540 LET FL =X-1 • 

1550 LET FC =Y 
1560 LET DL =X-1 
1570 LET DC=Y+1 
1530 LET EL =X-1 
1590 LET EC=Y-i 


1600 

1610 

1520 

1530 

1540 

1550 

1650 

1670 

1530 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1750 

1770 

1730 

1790 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1900 


GOTO 1130 
IF SENT=1 ThEH 
IF SENT=2 ThEH 
IF SENT=3 ThEH 
LET SENT =3 
GOTO 1540 
IF SENT = 1 ThEH 
IF SENT=2 ThEH 
IF SENT=3 ThEH 
LET SENT = 1 
GOTO 1120 
IF SENT = 1 THEN 
IF SENT=2 THEN 
IF SENT=3 ThEH 
LET SENT=2 
GOTO 1300 
LET. SENT =4 
GOTO 1420 
IF SENT = 1 ThEH 
IF SENT=2 ThEH 
IF SENT=3 ThEH 
LET X =X +1 
GOTO 1420 
LET Y=Y+1 
GOTO 1120 
LET Y =Y-1 
GOTO 1300 
LET X =X-1 
GOTO 1540 

REM PMOSTRP CRIS TPL NP TELP 
PR1HT PT 0,0; ‘1 


GOTO 

GOTO 

GOTO 


GOTO 

GOTO 

GOTO 


GOTO 

GOTO 

GOTO 


GOTO 

GOTO 

GOTO 


1740 

1590 

1760 


1540 

1750 

1740 


1750 

1540 

1690 


1330 

1350 

1370 


1910 PRINT 
1920 pRi^rr 
1930 PRINT 

1940 PRINT _ 

1950 FOR N = 157 TO 154 
1950 PRINT Jp" ;CHRS N; 



N;"+++++++« 


É \; CHR $ N 


1";CHR* 


1970 NEXT N 
1930 PRihrr 
1990 PRINT 

2000 PRihrr 

2010 PRINT 
2020 PRINT 
2030 RETURN 
2040 REM LE ENTRPDP DO JOGO 
2050 INRUT E$ 

2050 LET EM1=0 
2070 LET COO=0 

2030 IF LEN ES=2 ThEH GOTO 2170 
2090 IF E*<>"D" ThEH GOTO 2150 
2100 LET LS = ““ 

2110 LET CS = " '* 

2120 LET L =0 
2130 LET C =0 



2140 GOTO 2300 
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>150 PRINT 
DE NOUG*" 


PT 21,0; *'SERRO , TENTE 


2168 

GOTO 2050 


2178 

LET L$=E$ (1) 


2138 

LET C$ =E$ £ 2) 


2198 

IF L$>="fi" RND 

THEN 

GOTO 2228 


2288 

IF Li >="1" RND 

L*<="S" THEN 

GOTO 2258 


2218 

GOTO 2150 


2228 

LET EMI=1 


2238 

IF Cí > ="0“ RND 

C$<= ,, 9" THEN 

GOTO 2388 


224-8 

GOTO 2158 


2258 

LET COO=l 


2268 

IP C$ > = ” l s * HND 

0$ < =*‘.8" THEN 

GOTO 2238 


2278 

GOTO 2150 


2238 

LET L =URL L4 


2298 

LET C=URL C$ 


2388 

PRINT RT 21,0; 

: 

2318 

RETURN 


2328 

REM POS10IONR RANDOMICfi 

2338 

LET 1=1 


234-8 

LET R CI,1j =INT 

£ RND +3) +1 

2358 

LET fi £1,25 =INT 

(RND+6)+1 


>360 IF I>1 THEN GOTO 2390 
>370 LET 1=1+1 
>380 GOTO 234-0 
>390 FOR N=1 TO 1-1 
>4-00 IF fi £M , 1) =fi (1,1) RN D R £ N , 2) 
-fi (1,2) THEN GOTO 234-0 
>410 NEXT N 
>420 IF I<NR 
>430 CLS 
>440 RETURN 
>450 REM RDUERSRRIO 
>460 CLS 

>470 PRINT RT 7,19;"SfiDUERSRRIO* 
'RT 8,19; " *POSIOIONR * " 

>480 PRINT RT 10,13;"-DIGITE LIN 
Hfi"RT 11,19;"E OOLUNfi DO".;RT 12 
19; "P.TOMO ,E NEU";RT 13,19; "LINE 


THEN GOTO 2370 


POSIOIONR 


2490 GOSUB 1890 

2500 GOSUB 950 

2510 LET 1=0 

2520 GOSUB 2040 

2530 IF EMI=1 THEN GOTO 2590 

2540 IF I •; =0 THEN GOTO 2530 

2550 FOR N = 1 TO I 

2560 IF L =R £N,1) RND C=fi£N,2) TH 

EN GOTO 2690 

2570 NEXT N 

2580 LET 1=1+1 

2590 LET fl£I.l)=L 

2600 LET R£1,23=0 

2610 GOSUB 1000 

2620 IF I<NR THEN GOTO 2520 

2630 PRINT RT 21,0;"-DESEJA REFR 

ZER DISPOSIÇÃO?CS/N) " 

2640 INPUT Rí 

2650 IF R $ = “ 5' ’ THEN GOTO 2450 
2660 IF Ri •; > "N" THEN GOTO 2630 
2670 CLS 
2580 RETURN 

2690 PRINT RT 21,0; " -SERRO , TENTE 
DE NOUOs" 

2700 GOTO 2520 

2710 SRUE "CRIXR PRETgj" 

2720 RUN 


FAÇA DE SEU MICRO “SINCLAIR” 
UM PROFISSIONAL 



De-lhe um teclado 

Speed e ele terá 



□ Maior dinamismo na entrada de dados 

□ Vida útil maior que 2 milhões de operações 

□ Um TECLADO profissional com switches individuais e 
acondicionamento mecânico 

□ Gabinete em fiber-glass que acondiciona o micro 


SPEED ELETRO ELETRÔNICA LTDA. 

Rua I (i) N.° 395 - Bernardo Monteiro - Contagem - MG 
Tel: Escrit. (031) 463-3171 Fábrica: (031) 351-1887 


REVENDEDORES AUTORIZADOS: (011) 522-4637; (021) 270-9197; 
(081) 326-8814; (0514) 491-323; (084) 231-1055; (091) 223-6319 


♦ 


LANÇAMENTO 



Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 


Saídas: Expansão memória/impressora 
Fonte externa ou interna 

p^0£j0 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 VaC 
Joystick 



INTER-COL IND. E COM. LTDA. 

Depto. Vendas - Av. Alda, 805 - Diadema (Centro) 
fone: 456.3011 


Linha de Fabricação: 

Chaves comutadoras „ 

Teclas e teclados semi profissionais « 

Teclas e teclados profissionais £ 
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Simulando um computador com o seu TK 85 


Um programa de simulação da linguagem hi¬ 
potética HAL para você aprender a progra¬ 
mar em Assembly. 


Toshinobu Ishida 
TomazTaucher 


Ao desejar resolver um problema 
usando o computador, devemos expri¬ 
mir as "ordens" de tal maneira que ele 
possa entender e executar. Estas "or¬ 
dens" são chamadas de instruções e de 
alguma forma ficam armazenadas no 
computador. 

Num computador, o conjunto de 
instruções é executado por um micro¬ 
processador. Estas instruções são for¬ 
madas por um conjunto de números bi¬ 
nários. Por exemplo: quando um micro¬ 
processador Z-80 recebe o sinal de 8 bits 
1000 0000, ele executa a seguinte tare¬ 
fa: soma o conteúdo do registro B com 
o conteúdo do acumulador. 

Torna-se muito difícil programar 
usando este tipo de representação, de¬ 
vido ao tamanho e dificuldade de enten¬ 
dimento. Um recurso que usa-se larga¬ 
mente é dar um nome a cada código de 
instruções de tal forma que facilite a 
compreensão. 

Esta linguagem mnemónica é cha¬ 
mada Assembly e o programa que a 
converte para a linguagem de máquina é 
conhecida como Assembler (ou Monta¬ 
dor). O Assembler converte um código 
Assembly erh seu equivalente binário 
usando uma tabela fixa, tal como se nós 
estivéssemos fazendo manualmente. 

Aprender a programar em Assem¬ 
bly Z-80, por exemplo, é muito difícil 
para um principiante. Mesmo para aque¬ 
les que já programam em alguma lin¬ 
guagem de alto nível é complicado, pois 
não é fácil ter uma visão global olhando 
apenas a listagem. 

Introdução ao HAL 

Para atender aos que querem ini¬ 
ciar-se em Assembly de maneira sim¬ 
ples e fácil, apresentaremos aqui o HAL 
(linguagem Assembly Hipotética), usan¬ 
do, na medida do possível, mnemóni¬ 
cos que lembrem o nome das operações 
em português. 

HAL é uma linguagem mais traba¬ 
lhada, se comparada ao Assembly de 
microprocessadores, mas nos permite 
estudar os conceitos fundan.entais de 
programação em linguagem de baixo ní¬ 
vel muito rapidamente, pois o seu con¬ 
junto de instruções é pequeno, simples e 
poderoso. 


Uma versão semelhante ao HAL 
aqui descrito é usada na USP e nas ou¬ 
tras faculdades para o ensino da cadeira 
"Introdução às Ciências de Computa¬ 
ção", para cursos que fazem parte da 
área de Ciências Exatas. No Centro de 
Computação da USP é utilizado um 
computador de grande porte (Burroughs 
B-6900) e provavelmente linguagem AL¬ 
GOL para dar o suporte necessário. 

O programa em BASIC, para com¬ 
patíveis com o TK 83/85 aqui apresen¬ 
tado, é um misto de monitor, monta¬ 
dor, interpretador, compilador e simu¬ 
lador, que permite que o leitor introdu¬ 
za, altere, processe e obtenha resulta¬ 
do de um programa feito em HAL. 

Para que o BASIC TK pudesse dar 
suporte ao processamento da HAL sem 
se tornar muito lento e extenso, foram 
utilizadas algumas técnicas de progra¬ 
mação pouco convencionais aos que os 
leitores estão habituados. Temos certe¬ 
za que a um leitor atento, este progra¬ 
ma ser-lhe-á muito útil. 

As instruções 

HAL possui 6 mensagens indicati¬ 
vas de erros que podem ocorrer durante 
o processamento. Elas são as seguintes: 

— Divisão por zero — tentativa de divi¬ 
dir o conteúdo do acumulador por zero 

— Desvio inválido — tentativa de des¬ 
vio para um endereço inexistente no 
programa 

— Uso indevido de número — tenta¬ 
tiva de uso de um número no lugar de 
uma variável 

— Uso indevido de variáveis — tenta¬ 
tiva de uso de uma variável no lugar de 
um número 

— Erro de sintaxe — tentativa de exe¬ 
cutar uma instrução inexistente ou de 
formato errôneo 

— Sobrecarga aritmética — tentativa 
de operar com um número muito gran- 
dp ou pequeno. 

Versão HAL aqui apresentada pos¬ 
sui as seguintes instruções: 

Operações com variáveis 

CNA X Carrega no acumulador o con¬ 
teúdo da variável X 


CNV X Carrega na variável X o conteú¬ 
do do acumulador 

SOM X Soma o conteúdo de X ao va¬ 
lor contido no acumulador 
SUB X Subtrai o valor de X do conteú¬ 
do do acumulador 

VDD X Divide o acumulador pelo con¬ 
teúdo do X 

MUL X Multiplica o acumulador pelo 
conteúdo do X 

EDN X Entrada de dado numérico via 
teclado 

IVN X Imprime na tela o conteúdo 
deX 

Operação com números: 

NCA N Carrega no acumulador o valor 
numérico N 

NSM N Soma ao acumulador o valor 
numérico N 

NSU N Subtrai do acumulador o valor 
numérico N 

NML N Multiplica o acumulador pelo 
valor numérico N 

NDV N Divide o acumulador pelo valor 
numérico N 

Desvios para endereços: 

DIN E Desvio incondicional para en¬ 
dereço E 

DNP E se [A) < 0 desvia para ende¬ 
reço E 

DNV E se [A) ^ 0 desvia para ende¬ 
reço E 

DPS E se [A] > 0 desvia para ende¬ 
reço E 

DZR E se [A] = 0 desvia para ende¬ 
reço E 

DNG E se [A] < 0 desvia para ende¬ 
reço E 

DNN E se [A] ^ 0 desvia para ende¬ 
reço E 

FIM final do processamento 
Observação: 

[A] representa conteúdo do acumu¬ 
lador 

X representa uma variável qualquer 
N representa um número qualquer 
E representa um endereço qualquer 

Descrição qualitativa do 
processo de programação 

Em se tratando de uma linguagem 
de baixo nível, a HAL não consegue ter 
uma "performance" a nível de se com¬ 
parar com um BASIC, por exemplo. Isto 
traz grandes limitações para quem se 
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propõe a programar nesta linguagem. 
Entretanto, uma grande vantagem faz 
HAL ou o Assembly se sobressaírem em 
relação às outras linguagens: a opera¬ 
ção quase que direta com o micro do 
processador. Esta característica é res¬ 
ponsável pela grande velocidade de pro¬ 
cessamento e traz ao programador um 
horizonte repleto de possibilidades para 
sua programação. 

Tendo em vista estas diferenças, 
tentaremos aqui explicar a sistemática 
de programação em HAL e esmiuçar um 
programa nesta linguagem. 

0 acumulador pode ser comparado 
a um registro do microprocessador, no 
qual se efetuam todas as operações arit¬ 
méticas, comparações e atribuições. Pa¬ 
ra simularmos o comando LET A = 5, 
teremos que primeiramente carregar o 


acumulador com o valor e depois então 
descarregar este valor na variável A. 
Quando efetuarmos desvios condicio¬ 
nais notaremos que o conteúdo do acu¬ 
mulador é sempre comparado com zero. 
Se quisermos comparar o conteúdo do 
acumulador com um número qualquer, 
teremos que primeiro subtrair este nú¬ 
mero do conteúdo do acumulador para 
depois então comparar este com o zero. 

Exemplificamos estes processos 
com um programa que calcule o fatorial 
de um número qualquer. 

Lembramos que o fatorial de n = 

n 

n = 7T I 

i = 1 

Exemplo: 

Fatorial de 4 ou 4! = 1*2*3*4 = 24 
Vemos na figura 1 à direita o pro¬ 


grama de cálculo de fatorial em BASIC e 
ao seu lado, com as mesmas variáveis, o 
seu similar em HAL. 

Instruções para 
o uso do Programa 

Inicialmente aparecerá um ''menu'' 
para a escolha de opção. Para a digita¬ 
ção não é necessária a introdução de li¬ 
nhas, pois esta é feita automaticamente. 
Portanto, procure numerar seu progra¬ 
ma de 10 em 10. Ao listar o seu progra¬ 
ma, confira-o antes de rodá-lo para evi¬ 
tar qualquer erro. Para voltar ao menu, 
digite "c". Para qualquer correção no 
programa digite o número de linha erra¬ 
da e a seguir a instrução correta. Ao fi¬ 
nal do processamento, digite "c" para 
retornarão menu. 


10 EDN N 


10 INPUT N 

20 NCP 1 


20 LET F = 1 

30 CNU I 


30 FOR: 1 = 1 TO N 

40 CNU F 


40. LET F=F*I 

50 CNP I 


50 NEXT I 

50 MUL F 

70 CNU F 


60 PRINT F 


30 CNP I 
90 NSM 1 
100 CNU I 
110 SUB N 
120 DNP 50 
130 INU F 
140 FIM 


Fig.1 


SBhEM ** TÜSHINQBU I3HIDP ** 
*** TOMAZ TAUSCHER *** 

5 CLS 

10 PRINT “PROGRAMA MONTADOR PP 
RP LINSURGEM” 

20 PRINT PT 1 =5; ;: P3SEMBLY HIPO 
TETICP 11 

30 PRINT ==================== 


40 PRINT PT 3,5;”(D- DIGITPR 
p p n > - p p m p s! 

50 PRINT AT 10,5; ■' (2) - LISTAR 


PROGRAMA ■’ 

60 PRINT AT 12.5;“(3)- ALTERAR 
p p n p d p m p :: 

7Õ~ PRINT AT 14,5;“í4)- RODAR P 
pnftDQHP" 

80 PRINT AT 16,5;"(5)- FIM" 

90 LET R$-INKEYÍ 
100 IF R$ " 1" OR R$ > "5" THEN G 
OTO 90 


110 IF R$ = "1” THEN GOSUE 500 
120 IF R$ ="2" THEN GOSUE 1000 
130 IF Rí ="3" THEN GOSUE 1500 
140 IF Rí = ‘' 4" THEN GOSUE 2000 
150 IF Rí ="5" THEN GOSUE 2500 
ISO GOTO 5 


5 O0 CLS 

^510^PRINT AT 0,11;"DIGITACAO";A 


520. PRINT AT 10,0;"QUANTOS COMA 
NDOS EXISTEM NO SEU PROGRAMA ?" 


530 INPUT C 
540 DIM Bi 03,155 
550 DIM U C635 

560 PRINT AT 13,0;"COMECE A DIG 
ITAR " 

570 FOR B =1 TO C 
530 INPUT E$ SB) 

590 PRINT AT 21,1;10*B;" - ";B$ 
CE J 

600 SCROLL 
610 NEXT B 
620 RETURN 
1000 CLS 

1010 PRINT AT 0.12; "LISTAGEM";AT 
- 1 !?'"========================== 


1015 LET U=1 
1020 LET LL =1 
1025 LET F = 1 
1030 FOR B =LL TO C 

1040 PRINT AT 4+F,0;10*B;" - "jB 
$ C B 5 

1050 IF B < 17 £U THEN GOTO 1110 
1050 LET E$=INKEY$ 

1070 IF E$ < >”C” THEN GOTO 1060 

1075 LET U=U +1 

1030 LET LL =19 

1035 LET F = 1 

1090 CLS 

1100 GOTO 1030 

1110.LET F =F +1 

1120 NEXT B 

1130 LET E$=INKEY4 

1140 IF Eí •; >”C” THEN GOTO 1130 

1150 RETURN 

1500 CL5 

1510 PRIhrr PT 0 . 12 ;”ALTERACA0";P 
T 10; ========================= 


1520 PRINT PT 10.0;”QUAL E Ü NR * 
DP LINHA P SER PLTERADP ?” 

1530 INPUT LS 

1540 IF UPL Ls <10 GR UAL L$>10*C 
THEN GOTO 1530 

1550 PRINT PT 13,0;“DIGITE 0 COM 
PNDü CORRETO” 

1550 PRINT PT 13,0:L$+” - ” 

1555 INPUT BS (UPL L*/10) 

1557 PRINT PT 13,3+LEN L$;B$(UAL 
Lí/10) 

1570 PRINT PT 21,0; "MAIS PLGUMA 
ALTERpnpn 

Í5à0"ÍF''ÍNKEYÍ="S" THEN GOTO 160 
0 . 
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1590 IF INKEYi="N" THEN RETURN 

1595 GOTO 1530 

1600 CLS 

1610 GOTO 1510 

2000 CLS 

2010 FR ST 

2020 LET fiC=0 

2030 FOR 5-1 TO C 

204-0 LET fi$=B$£B3 

2050 LET CM=URL £STR$ ÍCODE fi$(3 

))+3TR$ ÍCODE (Ri£23333 

2050 LET N=CODE fi$£53 

2065 IF N=0 AND Ri (15 O "F" THEN 

GOTO 7500 

2070 IF fi$ í 15 = "N" OR fi$ £ 15 = "D” O 
R R$ C15 = "L" THEN GOTO 2110 
2075 IF N >23 RND N <37 THEN GOTO 
7020 

2030 GOSUB CM 
2090 NEXT 5 
2100 SLOU 
2105 GOTO 3000 

2110 IF N <23 OR N >37 THEN GOTO 7 
010 

2115 LET N=URL ífl$(5 TO 55 

2120 GOSUB CM 

2130 NEXT B 

214-0 SLOU 

2150 GOTO 3000 

2500 CLS 

2510 STOP 

3339 GOTO 7500 

334-0 LET RC=N 

384-1 RETURN 

3850 GOTO 7500 

3351 LET RC=U ÍH5 

3852 RETURN 

3957 GOTO 7500 

3953 LET RC=RC-UÍN5 

3959 RETURN 

4-14-0 GOTO 7500 

414-1 IF U ÍN5 =0 THEN GOTO 7000 

4142 LET RC=RC/UÍN5 

4143 RETURN 

4450 GOTO 7500 

4451 IF RC <0 THEN LET B=ÍN-105/1 
0 

4452 RETURN 
4949 GOTO 7500 
49b0 LfcT RC=AC*N 
4951 RETURN 

4957 GOTO 7500 

4958 GOSUB 3500 

4959 LET RC=fiC*U í N5 

4960 RETURN 

5045 GOTO 7500 

5046 RETURN 
5051 GOTO 7500 
50b2 LtX RC =AC+U í N3 
5053 RETURN 

5055 GOTO 7500 

5056 LET RC =RC+N 

5057 RETURN 

5140 GOTO 7500 

5141 SLOU 

5142 INPUT UÍN) 

5143 FR ST 

5144 RETURN 

5145 GOTO 7500 
bl46 GOSUB Sb0O 

5147 LET B=£N-10i/10 

5148 RETURN 

5150 GOTO 7500 

5151 GOSUB 6500 

5152 IF RC > =0 THEN LET B=ÍN-103/ 
10 


5153 RETURN 
5153 GOTO 7500 

5159 PRINT UÍN3 

5160 RETURN 

5350 GOTO 7500 

5351 GOSUB 6500 

5352 IF RC < =0 THEN LET B=£N-103/ 
10 

5353 RETURN 

5562 GOTO 7500 

5563 GOSUB 6500 

5564 IF RC =S THEN LET B=ÍN-10)/1 
0 

5565 RETURN 

5652 GOTO 7500 

5653 GOSUB 6500 

5654 IF RC >0 THEN LET B=(N-103/1 
0 

5655 RETURN 
5855 GOTO 750O 
5Sb6 LtT RC=RC-N 
5357 RETURN 

5940 GOTO 7500 

5941 IF N =0 THEN GOTO 7000 

5942 LET RC=RC/N 

5943 RETURN 

5950 GOTO 7500 

5951 LET U(NJ =RC 

5952 RETURN 

6350 GOTO 7500 

6351 GOSUB 6500 

6352 IF RC<>0 THEN LET B=(N-10)/ 
10 

6353 RETURN 

6500 IF N/10=INT (N/10) RND (N>= 
10 RND N<=10*C3 THEN RETURN 
6b10 CLS 
6520 SLOU 

5530 PRINT RT 21,0;"DESUIO INURL 

IDO EM ";10*B 

6540 GOTO 3000 

7000 CLS 

7002 SLOU 

7004 PRINT RT 21,0;"DIUI5R0 POR 
ZERO" 

7006 GOTO 3000 
7010 CLS 
7012 SLOU 

7014 PRINT RT 21,0;"USO INDEUIDO 
DE URRIRUEL EM ”;10*B 
7016 GOTO 3000 
7020 CLS 
7022 SLOU 

7024 PRINT RT 21,0;"USO INDEUIDO 
DE NUMERO EM ";Í0*B 
7026 GOTO 3000 
7100 CLS 
7110 SLOU 

7120 PRINT RT 21,0;"SOBRECRRGR fi 

RITMETICR EM ";10*B 

7130 GOTO 3000 

7500 CLS 

7510 SLOU 

7520 PRINT RT 21,0;"ERRO DE SINT 
fl.XE EM " ; 10 *B 

3000 IF INKEV$="C" THEN GOTO 1 
3010 GOTO 3000 

8500 IF U £N3 >lE+30 THEN GOTO 710 
0 

3510 RETURN 


Toshinobu e Tomaz são estudantes de engenharia de produção e 
mecânica da Escola Politécnica da USP e fazem estágio na área de 
Software. 
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PESCADOR 



Digite sem problema 
no seu TK 83/85 


Apresentamos nesta edição, um 
pequeno programa destinado aos prin¬ 
cipiantes. Trata-se do Pescador, un jo¬ 
go de menos de 2K de memória, desti¬ 
nado ao TK-83 e compatíveis. Neste 
jogo, peixes surgirão abaixo de um 
pescador, em profundidades aleató¬ 
rias (fig. 1). Para pescár seu peixe, di¬ 
gite a tecla F. 

Digitação 

Atenção ao digitar: 

Não digite letra por letra qualquer 
coisa da listagem que aparecer asso¬ 
ciada a uma tecla. Ao pegar uma lista¬ 
gem qualquer, o que você puder digi¬ 
tar como uma instrução, função ou co¬ 
mando, digite. Ou seja, só digite letra 
por letra o que não aparecer no tecla¬ 
do. 

As instruções ou comandos que 
aparecem sobre a tecla são obtidos 
com o cursor em K. As instruções e co¬ 
mandos que aparecem no interior da 
tecla (vermelho no TK 83 e em amare¬ 
lo no 85) são obtidas digitando-se 
SHIFT-ha tecla ao mesmo tempo. Di¬ 
gitando-se SHIFT + NEW UNE ao 
mesmo tempo obtemos o cursor F e 
entramos no modo FUNCTION. Neste 
modo, conseguimos obter as funções 
que aparecem na parte inferior da te¬ 
cla. Cuidado com a função PI: na I ista- 
gem ela sempre aparece como PI, mas 
no teclado ela está representada pela 
letra grega * . 

Gráficos 

Os símbolos gráficos são obtidos 
da seguinte maneira: 

1) Digite SHIFT + 9, obtendo as¬ 
sim o cursor G. 

2) Qualquer letra aparecerá agora 
invertida (fundo escuro com letras em 
branco), quando digitada. 

3) Para obter os símbolos gráfi¬ 
cos que aparecem nas teclas 1,2, 3, 4, 
5, 6, 7, 8, 9, Q, W, E, R, T, Y, A, S, D, 


F, G, H (atenção: o símbolo gráfico da 
tecla H é ligeiramente diferente ao da 
tecla A), devemos digitar SHIFT + a 
tecla que contém o símbolo desejado). 


O 

JT 



4) O quadrado completamente 
escuro é obtido digitando-se a tecla es¬ 
paço no modo gráfico. 

5) Para sair do modo gráfico, digi¬ 
te novamente SHIFT + 9. 

6) Em alguns computadores com¬ 
patíveis com o TK o vídeo é escuro 
com as letras em branco. Nestes com¬ 
putadores, tudo é feito da mesma ma¬ 
neira, só que no item 2, as letras e nú¬ 
meros aparecem no modo gráfico em 
preto sobre fundo branco. 


Como digitar os gráficos 
no nosso programa 

Indicaremos a você como digitar 
os gráficos que aparecem no progra¬ 
ma pescador. Descreveremos símbolo 
por símbolo em cada uma das linhas, 
da seguinte forma: 

1) Caracteres normais serão 
acompanhados pela palavra normal. 

2) Caracteres invertidos serão 
acompanhados pela palavra inverso. 

3) Caracteres gráficos serão indi¬ 
cados pela palavra gráfico seguida pe¬ 
la tecla que contém o caractere. 

Assim teremos: 

10 ESPAÇO (normal), 0 (normal), 
ESPAÇO (normal), ESPAÇO (inverso), 
gráfico 7, gráfico 3, gráfico 1, gráfico 
5. 

410 gráfico 3, gráfico E, 3 ESPA¬ 
ÇOS (inversos), gráfico W, 2 ESPA¬ 
ÇOS (normais), gráfico 3, ESPAÇO 
(inverso), gráfico 1 

420 10 espaços (inversos) 

430 gráfico R, 9 ESPAÇOS (inver¬ 
sos) 

440 gráfico 2, V (inverso), / ES¬ 
PAÇOS (inversos), gráfico E, 2 ESPA¬ 
ÇOS, gráfico 2, ESPAÇO (inverso), 
gráfico 4. 


1 LET & = INI ÍRN£>*URL "14*:* +v& 
L ** 5 " 

2 LET B=CODE "2" 

3 LET X=B 

4- LET YaX-X 

10 PRINT T RB Yj " D";TRB Y ; *' HP* 
” ; TR8 Y; " " 

100 LET B -B-URL "X" 

110 PRINT RT Y ,URL ”3";" 

120 PRINT RT " 

125 IF Y=B THEN GOTO URL ,, 300 M 

130 IF INKEY $ = ** F " THEN LET X =Y - 
Y _ 

140 IF NGT X THEN LET Y 

1S0 IF est/RJ. "0" THEN GOTO UhlL 

"220" 

200 GOTO URL "10-0" 

220 PRINT RT ft.B;" 

2*30 LET B=CODE "3" 

240 GOTO URL "100" 

3O0 IF B —URL "2“ OR B=URL "3" T 
HEN GOSÜB URL "40©" 

320 CLS 
330 RUN 
4-00 PRINT 
4.10 PRINT 
420 PRINT 
430 PRINT 
44-0 PRINT 
4.50 RETURN 
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Surpresa Visual 
para TK 85 


Renato da Silva Oliveira 




0 programa Surpresa Visual foi de¬ 
senvolvido especialmente para aqueles 
leitores que gostam de saborear as delí¬ 
cias que a linguagem Assembly pode 
proporcionar. Após ser rodado, ele gera 
uma tela incrível, e a título de exemplo, 
cria uma moldura que vai se deslocando 
velozmente com uma mensagem em seu 
interior. 

A partir de certo instante, porém, a 
figura não pode mais ser interrompida, 
isto é, você não pode mais tocar em ne¬ 
nhuma tecla do micro, pois acabará por 
destruir o programa (se não destruir 
também o micro!!). 

Para introduzir a Surpresa Visual, 
você deve, inicialmente, digitar o pro¬ 
grama 1 e rodá-lo. A linha IREM . . . 


serve para reservar espaço para o pro¬ 
grama em Assembly, e deve conter exa¬ 
tamente 244 caracteres. 

Rodando o programa 1, introduza 
os códigos da tabela 1. 

Após os 244 códigos terem sido in¬ 
troduzidos, apague as linhas de 10 a 70 e 
introduza as linhas de 15 a 20 do progra¬ 
ma 2. 

Feito isso, seu programa Surpresa 
Visual estará pronto. Prepare-se. Respi¬ 
re fundo, sente-se à frente da tela e . . . 
antes, certifique-se que o micro está 
funcionando em SLOW. Caso contrá¬ 
rio, seu programa sairá do ar. 

Finalmente, comando RUN. Após 
rodá-lo, dê um LIST. Agora é que você 
terá a surpresa. 


I 

REM (24.4. 

CARACTERES ) 

10 

FOR F = 15514. 

TO 1675S 

20 

SCROLL 


30 

PRINT F, 


40 

INPUT H 


50 

PRINT H 


50 

PÜKE F, H 


70 

NEXT F 

Fig.1 


15 

Rh ND 

USR 16516 

16 

PÜKE 

16514-29 

17 

PÜKE 

16515 f 1 

18 

PÜKE 

16516,õ 

1Q 

PÜKE 

16511,13 

20 

RUN 

Fig.2 


Tabela 1 


16514 

118 

16515 

118 

16516 

201 

16517 

41 

16518 

42 

16519 

0 

16520 

36 

16521 

39 

16522 

55 

16523 

46 

16524 

49 

16525 

118 

1652 6 

0 

16527 

2 

16526 

2 

16529 

0 

16530 

231 

16531 

118 

16532 

0 

16533 

3 

16534 

36 

16535 

0 

16536 

245 

16537 

11 

16536 

129 

16539 

3 

16540 

3 

16541 

3 

16542 

3 

16543 

•- 

w‘ 

16544 

3 

16545 

3 

16546 

3 

16547 

3 

16546 

3 

16549 

3 

16550 

3 

16551 

3 

16552 

3 

16553 

3 

16554 

3 

16555 

3 

16556 

3 

16557 


16558 

3 


IfiRRQ 

3 

16560 

-■ 

•J 

16561 

3 

16562 

3 

16563 

3 

16564 

3 

16565 

3 

16566 

3 

16567 

3 

16566 

3 

16569 

138 

16570 

11 

16571 

113 

16572 

0 

16573 

4 

16574 

2 

16575 

0 

16576 

231 

16577 

113 

16573 

0 

16579 

R 

16580 

36 

16531 

0 

16532 

245 

16583 

11 

18564 

R 

16585 

42 

1653 6 

56 

16537 

R7 

16586 

42 

16569 

0 

16590 

53 

16591 

55 

16592 

52 

16593 

44 

16594 

RR 

16595 

38 

16596 

50 

16597 

38 

16593 

0 

16599 

42 

16600 

1 

18601 

0 

16602 

58 

16603 

50 

16604 

33 

16605 

0 

1660 6 

45 

16607 

52 

1660 8 

50 


16609 

42 

16610 

51 

16611 

38 

16612 

44 

16613 

42 

16614 

50 

16615 

133 

16616 

11 

16617 

113 

16613 

0 

16619 

6 

16620 

2 

16621 

0 

16622 

231 

16623 

113 

16624 

0 

16625 

*7 

16626 

36 

16627 

0 

16623 

245 

16629 

11 

16 6 3 0 

5 

16631 

0 

16632 

0 

16633 

38 

16 6 3 4 

52 

16635 

0 

166 3 6 

41 

16 6 3 7 

46 

16 6 3 3 

38 

16639 

0 

16640 

29 

16641 

1 

16642 

0 

16643 

41 

16644 

42 

16645 

0 

1664 6 

38 

16647 

39 

16643 

55 

16649 

46 

16650 

49 

16651 

0 

16652 

41 

16653 

42 

16654 

0 

16655 

29 

16656 

37 

16657 

36 

16658 

33 


16659 

0 

16660 

0 

16661 

133 

16662 

11 

16663 

118 

16 6 6 4 

0 

16665 

3 

16666 

2 

16667 

0 

16668 

231 

16669 

118 

16670 

8 

16671 

9 

16672 

36 

16673 

0 

16674 

245 

16675 

11 

16676 

132 

16677 

131 

16673 

131 

16679 

131 

16630 

131 

16681 

131 

16 6 82 

131 

16683 

131 

16684 

131 

166 3 5 

131 

166 3 6 

131 

16687 

131 

166 88 

131 

16639 

131 

16698 

131 

16691 

131 

16692 

131 

16693 

131 

16694 

131 

16695 

131 

16696 

131 

16697 

131 

16698 

131 

16699 

131 

16700 

131 

16701 

131 

16702 

131 

16703 

131 

16704 

131 

16705 

131 

16706 

131 

16707 

*7 

16708 

11 


16709 

113 

16710 

0 

16711 

10 

16712 

4! 

16713 

0 

16714 

231 

16715 

113 

16716 

0 

16717 

11 

16713 

4* 

16719 

0 

16720 

231 

16721 

118 

16722 

0 

16723 

12 

16724 

2 

16725 

0 

16726 

231 

16727 

113 

16723 

0 

16729 

13 

16730 

2 

16731 

0 

16732 

231 

16733 

113 

16734 

0 

16735 

14 

16738 

21 

16737 

0 

16733 

234 

16739 

29 

16740 

1 

16741 

0 

16742 

41 

16743 

42 

16744 

0 

16745 

38 

16746 

39 

16747 

55 

16743 

46 

16749 

49 

16750 

0 

16751 

41 

16752 

42 

16753 

0 

16754 

29 

16755 

37 

16756 

38 

16757. 

33 

16758 

118 
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HOBBYSHOP 


VEJA SE SUA CIDADE TEM O QUE VOCE PRECISA 



TKSOM-TKMORSE 

2 Software de alta qualidade para Micros Sinclair com 16 K 

TKSOM — coloca som no seu micro; contém 6 músicas; você pode programar suas 
músicas. 

TKMORSE — lista sua mensagem em código morse; transmite sinais sonoros de men¬ 
sagem pré-gravada; transmite sinais sonoros simultaneamente com a digitação. 

Preço até 30-06-85 Cr$ 28.000 

Envie cheque nominal para: 

MÁRCIO ACCIOLY 

Rua Dr. Saboia de Medeiros, 199-54 — Cep 04120 — São Paulo — SP 
e receba os 2 Software pelo correio, sem mais nenhuma despesa. 

PREÇOS ESPECIAIS PARA REVENDEDORES. 



T ransforme seu TK 85. 

O mesmo efeito dos 
monitores de vídeo. 

Fundo: preto 

Letras: brancas 

Com uma simples modificação 

no microcomputador. 


TRANSVIDEO Fone: (011) 522-8100 


EI\JE 


Comércio de Computadores Ltda. 
TK85 x TK2000? 


Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Pajurás, 40 — CEP: 05670. 


CURSOS DE BASIC, PLANILHA ELETRÔNICA. 
PROCESSAMENTO DE TEXTOS E OUTROS 

Método moderno, todo apostilado com grande enfoque em sis¬ 
temas. 

Consulte-nos hoje mesmo. 

Rua Pinheiros, 1361 — Fone: 813-8585 — Pinheiros — São Paulo 


Z~7l 


4* 

P&' 

m 

OflTP 

RECQRú 

INFORMÁTICA / 



PROGRAME-SE! 

Faça como os funcionários da SABESP, BURI, KIBON e outros. Venha desvendar o 
computador da DATA RECORD INFORMÁTICA. 

COBOL - BASIC - DIGITAÇÃO 

Turmas especiais para crianças de 8 a 14 anos. (BOLSAS DE ESTUDO) 

Av. Santo Amaro, 5.450 — Tel. 543-9937 — Brooklin — (em frente ao E.C. Banespa). 


QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 - São Paulo - SP 


S. BERNARDO DO CAMPO - SP 



H 1*01,1 DATA 

Software-House especializada no 
desenvolvimento de sistemas e cursos 
de treinamento para microcomputadores. 








í>* 


Filial: R. Domingos J. Ballotim, 46 5? cj. 55 CEP 09700 - S.B. do Campo - Tel. 44» 5970 


SÃO JOSÉ DOS CAMPOS 


EKTRONIC - COMPONENTES E SISTEMAS LTDA. 

"SOFT-LOADER" — Interface micro-cassete para TK 82-C, 83, 
85 e Ringo. Indica nível certo para carregar programas sem proble¬ 
mas e falhas. (Veja Microhobby N? 10, 12 ou 13). Já um GRANDE 
SUCESSO PROVADO por centenas de usuários do TK. PREÇO: 
CrS 49.000,00 (Março). 

Mande seu pedido com cheque nominal ou vale postal para 
EKTRONIC COMPONENTES E SISTEMAS LTDA. Caixa Postal 
7004. São José dos Campos. CEP: 12200. Tel.: (0123) 291148. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


RIO DE JANEIRO 


PROSERV-Processaiento Dados.Cursos e Rep.Ltda. 
.MICROCOMPUTADORES (Novos e Usados) 

.CURSOS (Cobol. Dasic. CP/N. DDast II) 

.SUPRIMENTOS (Foraularios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE ITRS80. Apple. TK8S) 

Lq.Nove de Abril 27 salas 626/628 
Tel: (0243) 429800 - V.Redonda - RJ 


MINAS GERAIS 


MICUO E UI DF O 


Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 - Cariru - CEP 35160 - Fone (031) 821- 
2888 — Ipatinga — MG. 


MICROHOBBY 55 


















































O Modo Gráfico nos computadores TK 85, 
TK 2000, Apple e TRS Color 


Fábio Polônio 
Marcos Lorenzi 


Saiba como cada um destes computadores tra¬ 
ta as imagens e, a partir daí, aprenda a adaptar 
seus programas. 


Um dos obstáculos encontrados na 
adaptação de programas de um compu¬ 
tador a outro é relacionado à formata¬ 
ção da tela e operação no modo gráfico. 

Esse problema é decorrente das di¬ 
ferenças de operação e geração de pági¬ 
nas de vídeo em cada equipamento. 
Mesmo diferenças mínimas podem cau¬ 
sar dificuldades. 

Baseados nisso, resolvemos elabo¬ 
rar este texto comparativo entre micros 
TK 85, TK 2000, TRS Color e Apple e 
pretendemos retirar este obstáculo ou, 
pelo menos, minimizá-lo. 

Formatação da tela no 
modo texto 

Basicamente, existem duas manei¬ 
ras de formatação para os computado¬ 
res em questão. Elas são acessadas atra¬ 
vés dos comandos HTAB; VTAB e 
PRINTTAB. 

HTAB (x), VTAB (y): são coman¬ 
dos que fazem parte do BASIC do TK 
2000 e do Apple. São complementares e 
independentes. 

HTAB (X): seleciona a coluna em 
que se iniciará a impressão dos caracte¬ 
res (parâmetro x) e VTAB escolhe a li¬ 
nha (parâmetro y}. 

O TK 85 permite a mesma maneira 
de formatação, com o comando PRINT 
AT x,y, cujos parâmetros são análogos 
aos de HTAB e VTAB. 

Este tipo de formatação não é pos¬ 
sível no TRS 80 Color, pois não há ne¬ 
nhum comando similar em seu BASIC. 

O comando PRINT TAB é compa¬ 
tível a todos esses micros, porém com 
pequenas diferenças no resultado. O 
TAB (x) move a posição de PRINT até a 
coluna especificada pelo parâmetro (x). 

No TK 85 ele permanece na mesma 
linha a menos que envolva retorno (sem¬ 
pre na primeira linha), reduzindo o nú¬ 
mero da coluna módulo 32, isto é, divi¬ 
de por 32 e toma o resto. Assim, TAB 33 
significa o mesmo que TAB (1). 


O TK 2000 e o Apple têm o parâ¬ 
metro C entre 1 e 255 posições de início. 
Cada linha tem até 40 posições de início, 
numeradas da esquerda para a direita, 
em ordem crescente. Portanto, são se¬ 
te linhas de posição de início acessadas 
por TAB (x). 

No TRS 80 Color esta é a única ma¬ 
neira de formatação no modo texto. O 
parâmetro varia de 0 a 512 posições de 
início; portanto, a tela inteira pode ser 
acessada. Cada linha de impressão 
possui 32 colunas, numeradas como no 
TK 2000 e no Apple (ordem crescente da 
esquerda para a direita), a partir das 
quais pode-se começar. 

Operações no modo gráfico 

Aqui encontramos as maiores difi¬ 
culdades de adaptação de programas. 
Existem diferenças muito marcantes. 
Por exemplo, o TK 85 não possui trata¬ 
mento gráfico em alta resolução, en¬ 
quanto que no TRS Color existem cinco 
modos!! — o que dificulta a compara¬ 
ção, de modo a agilizar seu entendi¬ 
mento. 

Além das diferenças de páginas de 
vídeo existem as de comandos de ope¬ 
rações, comuns a todos eles. 

Colocando um ponto na tela 
em baixa resolução 

A tela de baixa resolução do TK 85 
é a mesma do texto. Para colocar-se um 
ponto isolado nesta tela, usa-se a ins¬ 
trução PLOT X, Y, sendo X o valor da 
coluna e Y o valor da linha onde será 
"plotado" o ponto, numeradas, respec¬ 
tivamente, da esquerda para a direita e 
de baixo para cima. 

No Apple e no TK 2000, para po¬ 
dermos "plotar" um ponto, devemos, 
em primeiro lugar, ''ligar" o modo grá¬ 
fico adequado. Isto é feito através do 
comando GR, digitado como linha dire¬ 


ta ou de programa. A seguir, devemos 
escolher uma cor adequada através do 
comando Color. 

Para apagar um ponto da tela, de¬ 
vemos plotá-lo com a cor do fundo. Isso 
é feito no programa "A Volta do Barão 
Vermelho", publicado na revista 16, 
quando o programa "plota" em preto o 
avião do comandante Brown sobre o 
fundo azul. Para apagá-lo, usou-se a cor 
azul para fazer a mesma plotagem. A 
forma correta do comando é idêntica ao 
do TK 85, só que as linhas são nume¬ 
radas de cima para baixo. 

No TRS Color, as instruções PLOT 
e UNPLOT têm outra nomenclatura e 
um parâmetro a mais, que é o indicador 
de cor. A numeração das colunas (x) é 
da esquerda para a direita e das linhas 
(y) é de cima para baixo. 

A instrução correta é: 

SET X, Y, C, 

sendo C o parâmetro de cor. 

O equivalente ao UNPLOT é RE- 
SET, X, Y, que apaga o ponto plotado. 
Não é necessário indicar a cor, pois o 
computador se encarrega de verificar a 
cor do ponto a ser apagado e colocar em 
seu lugar a cor de fundo. 

Alta resolução 

Neste ponto, o TK 85 se retira por 
alguns momentos do artigo, pois não 
possui alta resolução. 

Esse problema pode ser contornado 
com o uso de caracteres gráficos espe¬ 
ciais, que permitem, com o uso de cria¬ 
tividade, elaborar-se figuras bastante 
complexas e interessantes. 

No TK 2000 e no Apple, para acio¬ 
nar o modo de alta resolução, é dada 
uma instrução em linha de programa ou 
direta. Há duas maneiras: HGR e HGR2. 
A diferença entre a primeira e a segunda 
é que na segunda os micros operam sem 
a janela de texto, o que aumenta o nú¬ 
mero de linhas de 159 para 192. 
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MICRO 

Tamanho da Tela 

Número de colunas 

Número de linhas 

Formatação 
da tela 
modo/texto 

GR 

HGR 

GR 

HGR 

GR 

HGR 

TK 85 

2709 

elementos 
de imagem 

— 

63 numeradas 
da esquerda 
para direita 

— 

43 numeradas 
de baixo 
para cima 

— 

32 caracteres 
por linhas 

22 linhas 

TK 2000 

1521 

elementos 
de imagem 

44202 
elementos 
de imagem 

40 numeradas 
da esquerda 
para direita 

279 

esquerda 
para direita 

40 de cima 
para baixo 

159 de cima 
para baixo 

39 caracteres 
por linha 

22 linhas 

Apple 

1521 

elementos 
de imagem 

IDEM AO TK 2000 COLOR 


TRS80 

COLOR 


Este micro possui 5 modos de alta resolução gráfica selecionados pelo comando PMODEX (modo), 
y (página de início). 


32 caracteres 
por linha 
16 linhas 


MODO 


Número de Colunas 


Número de Linhas 


Tamanho da Tela 


128 

128 

128 

128 

256 


96 

96 

192 

192 

192 


12288 

12288 

24576 

24576 

49152 


OBS. No TK 2000 e no Apple existe uma segunda forma de alta resolução que, quando acessada por HGR 2, elimina a janela de 

texto aumentando o número de linhas (159 —► 192). 


Suas instruções de plotagem em 
alta resolução são HPLOT (x,y) e 
HPLOT (x,y) to (z,w). A primeira plota 
um ponto de acordo com as coordena¬ 
das e a segunda traça uma linha de (x,y) 
até (z,w). 

No TRS-80 Color determina-se alta 
resolução de acordo com o modo utili¬ 
zado (tabela I), o que é feito através do 
comando PMODE r (modo gráfico), s 
(página de início). 

Para plotagem em alta resolução o 
TRS Color utiliza o comando PSET x, y, 
c (c — parâmetro de cor) e para traça¬ 
dos de linhas há, em seu COLOR BA¬ 
SIC, o comando LINE — desenha uma 
linha de um ponto inicial a um ponto 
final. Se o ponto de início é omitido, é 
usado o ponto central da tela ou o últi¬ 
mo ponto final especificado. 

Existem ainda duas opções: B que 
desenha uma caixa, usando como extre¬ 
midade os pontos final e inicial e BF que 
pintará a caixa com a cor selecionada em 
PSET. LINE deve ser usado em conjun¬ 
to com PSET. 

Exemplos: 

LINE (5,3) - (6,6), PSET 

LINE (191,191), PSET, BF 

Há ainda uma última instrução se¬ 
melhante aos micros estudados que, 
apesar de estar definida tanto no Apple 
e TK 2000 quanto no TRS 80 Color, 
obtém resultados diferentes. 

DRAW, no TK 2000 e Apple, é uma 
instrução de manipulação de figuras em 
alta resolução. 

Formato: 

DRAW A AT x, y 


É desenhada uma figura começan¬ 
do no ponto cujas coordenadas são x e 
y. A figura é a A-ésima da tabela de fi¬ 
guras, carregada previamente pelo co¬ 
mando SHLOAD, ou digitada no modo 
monitor dos micros citados. 

A cor, rotação e escala da figura a 
ser definida são representadas pelos co¬ 
mandos HCOLOR = C, ROT = R e SCA- 
LE = S, respectivamente, e devem ser 
indicadas antes que DRAW seja execu¬ 


tado. 

XDRAW é um comando similar a 
DRAW do TK 2000 e do Apple, exceto 
que a cor usada é a complementar da¬ 
quela já existente dos pontos determi¬ 
nados. Desta forma, através de 
XDRAW, é possível suprimir da tela um 
traço já existente, sem que seja neces¬ 
sária a alteração da cor de fundo da tela. 
Seu formato é o mesmo que o da ins¬ 
trução DRAW. 


Caracteres Gráficos especiais 


São caracteres usados na formação 
de figuras no modo texto. Com exceção 
do Apple, os outros três micros possuem 
essa forma do modo texto. 

O TK 85 possue 20 caracteres espe 
ciais que são acessados através da instru 
ção GRAPHICS (Shift + 9). Eles estão 
representados em azul nas teclas 1, 2, 3, 
4, 5, 6, 7, 8, Q, W, E, R, T, Y, A, S, D, F, 
G e H. 

No TK 2000 esses caracteres são 
acessados através das teclas Control + B. 
Após digitacio o comando, deve se teclar 
"SHIFT + tecla", (ou CONTROL + 
SHIFT + TECLA) e haverá a formação de 
50 caracteres gráficos especiais. 

Experimente o seguinte programa: 

O TRS 80 Color possui apenas 16 ca 
racteres gráficos no modo texto, mas que 
podem ser especificadas as cores deseja 
das de cada um. 

São acessadas através da seguinte 
fórmula: 


Código = 112+16* cor + caractere 

Por exemplo, se você quiser o carac 
tere gráfico 7 na cor vermelha, faça: 

Código =112+16*4+7 

PR!NTCHR$ (CÓDIGO); 


10 FOR I = 193 TO 243 STEP 3 
20 FOR M = 0 TO 2 
30 A = I + K 

40 PRINT A;" "• CHRS (242); 
CHRS (A), 

50 NEXT : PRINT : NEXT 
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Conclusão 


No TRS 80 Color, DRAW desenha 
uma linha ou uma série delas, com pon¬ 
to de partida, comprimento, direção e 
cor especificados. Também desenha em 
escalas: linhas em branco, linhão não 
atualizado e executa sub-strings. Se o 
ponto de partida não for especificado é 
usado o ponto central da tela ou a últi¬ 
ma posição de DRAW (tabela II). 


A última instrução abordada é CIR- 
CLE, que pertence ao BASIC do TRS 80 
Color. Ela é usada para criar um círculo, 
parte de um círculo ou mesmo uma 
elipse. 

Formato: 

CIRCLE (x,y),r,c,hw, início, fim 
(x,y) — coordenadas do centro do 
círculo 
r — raio 

c — código de cor (opcional) 
hw — especifica a razão, altura, lar¬ 
gura e é um número de 0 a 255 — 
é opcional; se omitido, é usado 1. 
Início — especifica o ponto de par¬ 
tida do círculo e está entre 0 e 1. Se 
omitido é usado 0 

fim — especifica o ponto final do 
círculo e está entre 0 e 1. Se omiti¬ 
do é usado 1 


Tabela II 


DRAW LINHA 

LINHA é uma STRING que pode incluir: 
comandos de movimentos 
M = move para a posição onde começa 
o desenho 
U = para cima 
D = para baixo 
L = para esquerda 
R = para direita 
E = ângulo de 45° 

H = ângulo de 135° 

G = ângulo de 225° 

F = ângulo de 515° 


Modos 

C = cor 
A = ângulo 
S = escala 


Opções 

N = sem atualização da posição 
B = espaço em branco (sem DRAW, 
apenas desloca). 


Apesar dos modos de operação se¬ 
rem diferentes nos três micros compu¬ 
tadores, cada um deles apresenta recur¬ 
sos que, se bem empregados, podem 
ser usados para criar-se telas interessan¬ 
tíssimas, quer em jogos, quer em apli¬ 
cativos. 

O que normalmente frusta um usuá¬ 
rio de uma determinada lógica é não po¬ 
der usar diretamente programas desen¬ 
volvidos em outro computador. 

Se você conhece bem seu micro, 
isso não será problema. Tudo o que vo¬ 
cê tem a fazer é conhecer um pouco de 
programação de outros micros e apren¬ 
der a ler seus programas e, posterior- 
mente, traduzir o BASIC de um compu¬ 
tador para outro. Além disso, você po¬ 
derá, com recursos de seu próprio mi¬ 
cro, meihorar em muito o desempenho 
de um programa. Por exemplo: 

O TK 2000 tem uma variedade gran¬ 
de de caracteres gráficos especiais e ain¬ 
da permite o uso de texto e gráficos de 
alta e baixa resolução simultaneamente, 
ao contrário do Apple e do TRS-Color. 
Além disso, em comparação com o 
TRS-Color, seu uso de cores é muito 
mais simples. Assim, usar estes recursos 
extras permite uma maior versatilidade 
no programa traduzido. 




TENTE ESTA 


Estes são para o TK 83/85 


Daniel Nordemann 

Estes dois programas curtíssimos são para enfeitar a 
tela da sua televisão com quadros animados. Operar em 
Slow. 



3 RUN 


São fáceis de entender e podem ser modificados à 
vontade (diminuir os quadros, usar menos caracteres, até 
um só se quiser, misturar os dois programas, alterar a den¬ 
sidade de caracteres. 


_ J 


-— -v 


TENTE ESTA 


i ONERR GOTO 5 

5 INPUT "DURACAO <0 A 255, DUAS VEZES 
>';C,D 

10 A = PEEK (38):B = PEEK (39) 

15 IF A = i THEN A = 48: IF B = 1 THEN 
B = 0 

20 IF A = 0 THEN A = 1: IF B = 48 THEN 
B = í 

30 SOUND 8,C TO A,D 
40 GOTO 10 


___ J 
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pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


Apresentamos o. 

TK 20001 
Ele rada o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preco de lançamento* (128 K): 

Cr$ 1.949.850 

/WCRODIGIML 

computadores pessoais 



Sujeito a alteração sem prévio aviso. 


® Marca registrada da Visicorp. Filiada à ABICOMP ® Marca reyistrada da Apple Computer. 









Prepare-se. Dentro de sua própria casa , você vai 
perseguir e abater mísseis e tanques de guerra. Seus jatos 
escaparão por milímetros dos potentes canhões inimigos , 
planetas explodirão em chamas. Você vai conhecer , nas 
cores mais dramáticas , na maior nitidez , as sensações de 
uma verdadeira batalha. 

Entregue-se. Você simplesmente não vai resistir 
a fantástica aventura que é ter um 0nyx Junior. 


0 mais moderno , o mais completo videogame 
que você já viu (o único neste sistema que tem pau sei, com 
mais de 300 jogos diferentes: o O nyx Junior usa todos os 
cartuchos da Linha Atari® 

Apresente-se. A mais alta patente em videogame 
espera você para um encontro inesquecível. 

/V1ICRODIGIML 


® ATARI INC. ALL RIGHTS RESE.RVED 







